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IDENTIFICATION 


PRODUCT CODE: AC-F244B-MC 

PRODUCT NAME: CJKDDBO KEF11-AA DIAG #2 
DATE CREATED: NOV-79 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO _ CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTUED AS A COMMITMENT BY 
DIGITAL EQUIPMENT CORPORA! ION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR IN THIS MANUAL. 


THE SOF TWARE © FS ai IN THIS DOCUMENT IS Acs tj TO THE 
PURCHASER UNDER LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN Br COPIED (WITH INCLUSION OF DIGITAL'S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE TWO PROGRAMS: 
CJKDCB, CJKDDB 


ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN’ THE 
F-11 MMU AND FLOATING POINT CHIP SET. THE 

DESIGN IS AN ATTEMPT TO REACH ALL MIRCO-CODE LOCATIONS. 
TESTS ARE PARTITIONED INTO TWO STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NCTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 

UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS (CPU, MMU, FP1) 
HAVE BEEN RUN AND IN MOST CASE THAT THERE IS ONLY A SINGLE 
POINT FAULT EXISTS. IF THE PROGRAMS OR TESTS 

aae IN ORDER THEN ERROR MESSAGES MAY NOT BE 





A. CJKDCA 

CJKDCA TESTS: (FLOATING POINT TEST 1) 
LDFPS 
STFPS 


CFCC 
SETF, SETD, SETI AND SETL 
STST 


LDF AND LDD (ALL SOURCE MODES) 

STD (MODE 0 AND 1) 

ADDF, ADDD AND SUBD (MOST CONDITIONS) 

ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
TESTED IN DFFPA) 

CMPD AND CMPF 


DIVD AND DIVF 


B. CJKDDB 
CJKDDB TESTS: (FLOATING POINT TEST 2) 


STF AND STD (ALL MODES) 
STCFD AND STCDF 


D 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
LDFPS (ALL SOURCE MODES) 
LDCIF AND LDCLF 
LDCID AND LDCLD 


SEQ 0004 


2.5 


REQUIREMENTS 


EQUIPMENT 


A PROCESSOR USING THE DCF11~AA,KTF11-AA AND KEF11-A CHIP SET. 


STORAGE 


BOTH PROGRAMS REQUIRE A MEMORY SYSTEM OF AT 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 


THESE TWO DIAGNOSTICS WILL ASSUME THAT _ THE 
BASIC CENTRAL PROCESSOR IS FAULTLESS, THEREFORE 
WHEN IN DOUBT RUN THE DCF11-AA PROCESSOR DIAG- 
NOSTICS BEFORE THESE FLOATING POINT DIAGNOSTICS. 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON _ THE _ 11/23 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
PROGRAM AND OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY 

LOAD ADDRESS 200 

SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 
PRESS START 


ON FIRST PASS THE PROGRAM 
ee IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR THE 
SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
or ae UNDER ACT, APT OR CHAIN THIS DOES 
Js THE PROGRAM WILL LOOP AND AN END OF PASS WILL 
BE TYPED AT THE END OF EVERY PASS. 


wn 
o e 7 
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5.1 


6.1 


6.2 


OPERATING PROCEDURE 





OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 


OC TAL 
SW<15>=1... 100000 HALT ERROR 
SW<14>=17... 40000 LOOP ON CURRENT TEST 
SW<135>=1... 20000 INHIBIT ERROR TYPE OUTS 
SW<12>=1... 10000 INHIBIT T-BIT TRAPPING 
SW<11>=1... 4000 INHIBIT ITERATIONS 
SW<10>=1... 2000 RING TTY BELL ON ERROR 
SW<9>=1.... 1000 LOOP ON ERROR 
SW<8>=1.... 400 LOOP ON TEST SPECIFIED IN SW<6> 

THROUGH SW<0> 

ERRORS 

SUMMARIES 


WHEN AN ERROR IS ge eal AN ERROR MESSAGE ACCOMPANIED 
BY THE ERROR PC ARE TYPED. 

THERE ARE FOUR STANDARD ERROR MESSAGES USED, DESCRIBING 

THE PROBABLE CAUSE OF FAILURE, SUCH AS: PROBABLY BAD MMU CHIP; 
BAD FP? CHIP; BAD HYBRID FP CHIP: FLOATING POINT ERROR. 


ERROR RECOVERY 


SW<15:9>=0... MOST ERRORS WILL CAUSE EXECUTION TO 
GO TO THE START OF THE NEXT TEST 
AFTER THE MESSAGE IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 


SW<15>=1... THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE _ THE 
PROGRAM TO CONTINUE AS IF SwW<15>=0. 


RESTRICTIONS 
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8.1 


8.2 


8.3 


8.4 


8.5 


8.6 


EXECUTION TIMES 

LESS THAN 2 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 

THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE TWO PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED. 


T-BIT TRAPPING 


IF SW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 
ON EVERY OTHER PASS. FIRST PASS WILL NOT ENABLE 
TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 


SOFTWARE SWITCH REGISTER 


EACH OF THE TWO PROGRAMS WILL RUN WITH OR WITHOUT 
A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
PROGRAMS WILL GO ro AND USE IT FOR THE SWITCH 
FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
IS NO CONSOLE SWITCH REGISTER ON THE SYSTEM A 
SOFTWARE SWITCH REGISTER WILL BE USED. THIS 
SOFTWARE SWITCH REGISTER CAN BE EXAMINED OR MODIFIED 
AT ANY TIME BY THE USER IF HE TYPES CONTROL G_ WHILE 
THE PROGRAM IS RUNNING. THIS 
ro CONTENTS OF en SOFTWARE SWITCH REGISTER TO BE 
TYPED ON THE TTY AND ASK THE USER FOR A NEW VAL 
WHEN THE USER TYPES A VALUE AND CARRIAGE * RETURN THEN 
THE PROGRAM WILL RESUME TESTING AT THE SAME POINT AT 
WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL 
NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
REGISTER VALUE AFTER LOADING ADDRESS 200 AND 
eee THE PROGRAM THE FIRST TIME THE PROGRAM IS 
RUN FTER LOADING (ONLY IF NO CONSOLE SWITCH 
REGISTER IS ON THE SYSTEM). 


ACT, APT AND XXDP COMPATIBILTY 
THE SE ——— ARE FULLY COMPATIBLE WITH: 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


SEQ 0007 


TEST 10 


TEST 11 


TEST 12 


STF WITH ILLEGAL ACCUMULATOR TEST 








THIS IS A TEST OF THE ST INSTRUCTION USING ILLEGAL 
ACCUMULATOR 7, MODE 0. 


THIS IS 


THIS IS 


THIS IS 


THIS IS 


THIS IS 


THIS IS 
STD. 


THIS IS 
USING 


THIS IS 


STD 


FDST MODE 1, FLOATING MODE, TEST 


A TEST OF THE STF INSTRUCTION USING FDST 





FDST MODE 2 TEST 


A TEST OF BOTH STF AND STD WITH FDST MODE 2. 
FDST MODE 2, WITH GR7, TEST 





A TEST OF STF WITH GR7 MODE 2 OR’ IMMEDIATE 


FDST MODE 4 TEST 


A TEST OF STD WITH FDST MODE 4. 
FDST MODE 3 TEST 


A TEST OF FDST MODE 3 USING STD. 
FDST MODE 5 TEST 


A TEST OF FDST MODE 5 USING STD. 
FDST MODE 6, INDEX MODE, TEST 


A TEST OF FDST MODE 6, INDEX MODE, USING 


FDST MODE 7, INDEX DEFERRED MODE, TEST 


A TEST OF FDST MODE 7, INDEX DEFERRED MODE, 


STCFD TEST 


A TEST OF THE STCFD INSTRUCTION. 


TEST 13 


TEST 14 





TEST 15 


TEST 16 





TEST 17 





TEST 20 


TEST 21 


TEST 22 


TEST 23 


TEST 24 





STCDF TEST 


THIS IS A TEST OF THE STCDF INSTRUCTION. 
STCFD WITH ILLEGAL ACCUMULATOR TEST 





THIS TEST STCFD WITH ILLEGAL AC 6. 


THIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 
CLRD WITH ILLEGAL ACCUMULATOR TEST 


THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 


NEGF, ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7, TEST 


THIS IS A TEST OF THE SPECIAL DEST FLOWS USING THE 
NEGD INST WITH MODE ZERO AND ILLEGAL AC7. 


NEGF, ABSF AND TSTF SOURCE MODE O TEST 


THIS IS A_ TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 0 


NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 1 


NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 2 


NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 4 


NEGF, ABSF AND TSTF SOURCE MODE 3 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 3 


SEQ 0009 


TEST 25 


TEST 26 


TEST 27 





TEST 350 


TEST 31 


TEST 32 





TEST 33 


TEST 34 


TEST 35 


TEST 36 


NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 








THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 5 


NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 





THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 


NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 
THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 

NEGF, ABSF AND TSTF SOURCE MODE 6, GR7, TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 6 


NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST 





THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 7 


SPECIAL DEST, MODE 0, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 


FLOWS MODE 0 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 1, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 


FLOWS MODE 1 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 2, TEST 


THIS IS A _TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 2 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 4, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 4 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 3, TEST 





THIS IS A TEST OF THE NEGF ABSF “ag TSTF DESTINATION 
FLOWS MODE 3 USING THE NEGD INSTR 


SEQ 0010 
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TEST 37 





TEST 40 





TEST 41 


TEST 42 


TEST 43 


TEST 44 





TEST 45 


TEST 46 





TEST 47 





TEST 50 





SPECIAL DEST, MODE 5, TEST 


bite 1S A TEST OF THE NEGF ABSF a TSTF DESTINATION 
FLOWS MODE 5 USING THE NEGD INSTR 


SPECIAL DEST, FLOATING MODE 2, TEST 








hap IS A_ TEST OF THE NEGF ABSF _ TSTF DESTINATION 
FLOWS MODE 2 USING THE NEGF INSTR 


SPECIAL DEST, MODE2, GR7 (IMMEDIATE? , TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 2( IMMEDIATE) USING THE NEGD INSTR. 


SPECIAL DEST, MODE 6, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 





FLOWS MODE 6 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 7, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 7 USING THE NEGD INSTR. 


NEGD, ABSD AND TSTD TEST 











THIS IS A_ TEST OF THE NEGD ABSD AND TSTD 
INSTRUCTIONS. 


SOURCE MODES, MODE 1 (FL=0), TEST 


iain A TEST OF SOURCE MODE 1 USING THE LDFPS 


SOURCE MODES, MODE 2 (FL=0), TEST 





ja | A TEST OF SOURCE MODE 2 USING THE LDFPS 


SOURCE MODES, MODE 4 (FL=0), TEST 


it A TEST OF SOURCE MODE 4 USING THE LDFPS 


SOURCE MODES, MODE 3 (FL=0), TEST 


iat A TEST OF SOURCE MODE 3 USING THE LDFPS 


= 


SEQ 0011 


TEST 51 


TEST 52 


TEST 53 


TEST 54 


TEST 55 


TEST 56 


TEST 57 


TEST 60 


TEST 61 


TEST 62 


SOURCE MODES, MODE 5 (FL=0). TEST 
ioe | A TEST OF SOURCE MODE 5 USING THE LDFPS 


SOURCE MODES. MODE 6 (FL=0). TEST 











Halt A TEST OF SOURCE MODE 6 USING THE LDFPS 


SOURCE MODES, MODE 7 (FL=0), TEST 





nate A TEST OF SOURCE MODE 7 USING THE LDFPS 


SOURCE MODES, MODE 2 GR7 (FL=1), TEST 








THIS IS A TEST OF THE LDCLD WITH IMMEDIATE 
ADDRESSING MODE 


SOURCE MODES, MODE 2 (FL=1), TEST 


THIS IS A_ TEST OF THE LDCIF AND THE LODCLF 
INSTRUCTIONS. 


LDCID AND LDCLD TEST 


THIS IS A TEST OF LDCID AND LDCLD 


THIS IS A TEST OF THE LDEXP INST A_ SUBROUTINE IS 
USED TO SET UP_OPERANDS, EXECUTE THE LDEXP INST AND 
CHECK THE RESULTS. 


DESTINATION MODES, MODE 1 (FL=0), TEST 


THIS IS A TEST OF DESTINATION MODE 1 USING THE STFPS 
INSTRUCTION 


DESTINATION MODES, MODE 2 (FL=0), TEST 


THIS IS A_TEST OF DESTINATION MODE 2 USING THE STFPS 
INSTRUCTION 


SEQ 0012 


TEST 63 


TEST 64 


TEST 65 


TEST 66 


TEST 67 


TEST 70 


TEST 71 


TEST 72 


TEST 73 


DESTINATION MODES. MODE 4 (FL=0), TEST 
THIS IS A TEST OF DESTINATION MODE 4 USING THE STFPS 
INSTRUCT JON 

DESTINATION MODES, MODE 3 (FL=0), TEST 
THIS IS A TEST OF DESTINATION MODE 3 USING THE STFPS 
INSTRUCT ION 


DESTINATION MODES, MODE 5 (FL=0), TEST 


THIS IS A TEST OF DESTINATION MODE 5 USING THE STFPS 
INSTRUCT ION 


DESTINATION MODES, MODE 6 (FL=0), TEST 


THIS IS A TEST OF DESTINATION MODE 6 USING THE STFPS 
INSTRUCTION 


DESTINATION MODES, MODE 7 (FL=0), TEST 





THIS IS A TEST OF DESTINATION MODE 7 USING THE STFPS 
INSTRUCTION 


DESTINATION MODES, MODE 2 (FL=1), TEST 


THIS IS A TEST OF DESTINATION MODE 2 USING STCOL 
WITH REGISTER 0 


DESTINATION MODES, MODE 4 (FL=1), TEST 


THIS IS A TEST OF DESTINATION MODE 4 USING STCDL 
WITH REGISTER 0 


STCDI AND STCDL TEST 


THIS IS A_TEST OF THE STCDI AND STCDL INSTRUCTIONS. 
NOTE THAT A SUBROUTINE, STCSUB, IS USED TO SET UP 
ie. He ee EXECUTE THE STC INSTRUCTION AND CHECK 


STCFL AND STCFI TEST 


THIS IS A TEST OF STCFL_AND STCFI. IT MAKES USE OF 
THE SAME SUBROUTINE, STCSUB, WHICH WAS USED TO TEST 
STCDL AND STCDI. 


SEQ 0015 


| 


TEST 74 


TEST 75 


TEST 76 





TEST 77 





10. 


STEXP TEST 





THIS IS A TEST OF THE STEXP INSTRUCTION 
STST TEST 





THIS IS A TEST OF THE STST INSTRUCTION. FIRST 

oe FPS OP CODE fag IS - TO ENTER 
AN ERROR CONDITION IN THE FEC AND 

EXECUTED AND THE FEC AND FEA ARE CHECKED. 


SPECIAL CASE TEST 


“~ 
eo | 
m 
> 
x 
rm 
w” 
“~ 
” 
“~ 
Bane 
~ 


THAT THIS CODE FAILED EVEN 
AFTER THE FLOATING POINT UNIT HAD PASSED ALL OF THE 
DIAGNOSTICS. |THE HARDWARE WAS MODIFIED TO CORRECT 
THE ERROR BUT SINCE A TEST DEFICIENCY WAS INDICATED 
THIS TEST WAS ADDED. THE TEST LOADS A MIXED =) 
IN THE FPAC AND SUBTRACTS A WHOLE NUMBER FROM IT 


INTERRUPTABILITY TEST 


THIS TEST iy DERIVED FROM A SET OF FORTRAN 4 BENCH 
MARKS. IT WAS FOUND 





THIS TEST VERIFIES THE ABILITY OF THE KEF11~A TO BE 
INTERRUPED DURING THE MICRO CODE MULTIPLY LOOP. 


LISTING 
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MACY11 ly et 


E OF CONTENTS 


BASIC DEFINITIONS 
FPP REGISTER DEFINITIONS 


TRAP CATCHER 


STARTING ADDRESS(ES) 


COMMON TAGS 
APT MAILBOX-E TABLE 
ERROR POINTER TABLE 


ACT11 HOOKS 


APT PARAMETER BLOCK 
INITIALIZE THE COMMON TAGS 
PE PROGRAM 


TY 
! VALUE FOR SOFTWARE SWITCH REGISTER 
ae WITH ILLEGAL ACCUMULATOR 


C 
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SEQ 0015 


| 


TEST 


12 FDST MODE 1, FLOATING MODE, TEST 

T3 FDST MODE 2 TEST 

4 FDST MODE 2, WITH GR7, TEST 

T5 FDST MODE 4 TEST 

T6 FDST MODE 3 TEST 

T7 FDST E 5 TEST 

T10 FDST E 6, INDEX MODE, TE 

T17 ST MODE 7, INDEX DEFERRED MODE, TEST 
T12 STCFD TEST 

113 STCDF TES 


CDF TEST 
T14 STCFD i ILLEGAL ACCUMULATOR TEST 


715 CLRD Tf 


T16 CLRD WITH ILLEGAL ACCUMULATOR TEST 

T17 NEGF, ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7, TEST 
T20 NEGF, ABSF AND TSTF SOURCE MODE TEST 

T21 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 
T2e NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 
T23 NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 

T24 NEGF, ABSF AND TSTF SOURCE MODE 3 TEST 

T25 NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 
T26 NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 
T27 NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 
T30 NEGF, ABSF AND TSTF SOURCE MODE 6, GR7/, TEST 
131 NEGF , F TSTF SOURCE MODE 7, GR7, TEST 
T32 SPECIAL DEST, MODE 0, TEST 

133 SPECIAL DEST, MODE 1, TEST 

134 SPECIAL DEST, MODE 2, TEST 

T35 SPECI ST, MODE 4, TEST 

736 SPECIAL DEST, MODE 3, TEST 

137 SPECIAL DEST, MODE 5, TEST 

T40 SPECIAL DEST, FLOATING MODE 2, TEST 

141 SPECIAL DEST, MODE2, GR7 (IMMEDIATE), TEST 
T42 SPECIAL DEST, MODE 6, TEST 

143 SPECI EST, MODE 

144 NEGD, ABSD AND TSTD TEST 

145 MODES, MODE 1 (FL=0), TEST 

146 SOURCE MODES, MODE 2 (FL=0), TEST 

147 S MODES. MODE 4 (FL=0), TEST 

T50 SOURCE MODES, MODE 3 (FL=0), TEST 

151 OURCE MODES, MODE 5 (FL=0), TEST 

T52 OURCE MODES, MODE 6 (FL=0), TEST 

153 SOURCE MODES, MODE 7 (FL=0), TEST 

T54 SOURCE MODES, MODE 2 GR7 (FL=1), TEST 





CJKDDB.P11 


CJKDD6 KEF11=A DIAG PART 2 
12-MAR-80 07:22 


END OF 


MACY11 nN e+ clfeeure™ 07:25 
TABL ONTENTS 


155 SOURCE MODES, MODE ¢ (FL=1), TEST 
156 LDCIF AND LDCLF TEST 
157 LDCID AND LDCLD TEST 


T60 LDEXP TEST 
161 DESTINATION MODES, MODE 1 (FL=0), TEST 
166 DESTINATION MODES, MODE 2 (FL=0), TEST 
T6 DESTINATION . MODE 4 (FL=0), TEST 
DESTINATION MODES, MODE 3 (FL=0), TEST 
165 DESTINATION MODES, MODE 5 (FL=0), TEST 
T DESTINATION MODES, MODE 6 (FL=0), TEST 
167 DESTINATION MODES, MODE 7 (FL=0), TEST 
T70 DESTINATION MODES, MODE 2 (FL=1), TEST 
71 DESTINATION MODE 4 (FL=1), TEST 


E 
176 SPECIAL CASE TEST 
177 INTERRUPTABILITY TEST 
PASS ROUTINE 
SCOPE HANDLER ROUTINE 
ERROR ER ROUTINE 
SAVE AND RESTORE RO-R5 ROUTINES 


TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
APT COMMUNICATIONS ROUTINE 

TTY INPUT ROUTINE 

TRAP DECODER 


TRAP TABLE 

POWER DOWN AND UP ROUTINES 

ERROR TYPE OUT ROUTINE 

FPP SPURIOUS TRAP TO “ HANDLER 
CPU SPURIOUS TRAP TO 4 HANDLER 

CPU SPURIOUS TRAP TO 10 HANDLER 
SET LOOP ON ERROR ADDRESS ROUTINE 
FLAG RESET AND CONSOLE TEST ROUTINE 


D 


2 
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11=A DIAG PART 2 MACY11 30A(1052) 12=MAR=80 07:25 PAGE 1 
12=MAR=B0 07:22 SEQ 0017 
000443 MNUMBER=443 | 
000003 PROGNUM= 3 | 
LIST ME 
"NLIST MD.MC,CND 


-ENABL ABS 


-TITLE CJKDDB KEF11-A DIAG PART 2 
:*COPYRIGHT (C) NOVEMBER 1979 
:*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


* 
:*PROGRAM BY DIAGNOSTIC ENGINEERING 

-* 

>*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 

:* 


000001 $TN=1 
160000 $SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
000244 FPVECT=244 
177400 $SWR=177400 
000200 $SWRMSK=200 
000011 TAB=11 
000015 CRLF=15 
.SBTTL BASIC DEFINITIONS 
:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 
-EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE > :BASIC DEFINITION OF SCOPE CALL 


Paes: aa DEF INITIONS 


000011 ;;CODE FOR HORIZONTAL TAB 


xe 
CJKDDB KEF11=A DIAG PART 2 MACY11 30A(1052) 12-MAR-80 07:25 PAGE 1-1 


CJKDDB.P11 12=MAR=80 07:22 BASIC DEFINITIONS SEQ 0018 
(1) 000012 LF= 12 :: CODE FOR LINE FEED 
(1) 000015 CR= 15 ;;CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 =CODE. FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 = :PROCESSOR STATUS WORD 
(1) -EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 “PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 = :HARDWARE SWITCH REGISTER 
(1) 177570 DDISP= 177570 : sHARDWARE DISPLAY REGISTER 
(1) :*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) RO= %0 ::GENERAL REGISTER 
(1) 000001 R1i= %1 = :GENERAL REGISTER 
(1) 000002 R2= %2 : GENERAL REGISTER 
(1) 000003 R3= 13 :: GENERAL REGISTER 
(1) R4= %4 > :GENERAL REGISTER 
(1) 000005 R5= %5 > GENERAL REGISTER 
(1) R6= 46 ;;GENERAL REGISTER 
(1) 000007 R7= %7 :GENERAL REGISTER 
(1) SP= %6 :: STACK POINTER 
1) 000007 PC= 47 : PROGRAM COUNTER 
(1) ;*PRIORITY LEVEL DEFINITIONS 
(1) PRO= s«sO ::PRIORITY LEVEL 0 
(1) ee > PRIORITY LEVEL 1 
(1) 000 PR2=—s 1 > :PRIORITY LEVEL 2 
(1) 000140 PR3= 140 *=PRIORITY LEVEL 3 
(1) 2 PR4= > =PRIORITY LEVEL 4 
(1) 000240 PR5S= 240 *:PRIORITY LEVEL 5 
(1) 000300 PR6= 300 *:PRIORITY LEVEL 6 
1) 000340 PR7= 340 > :PRIORITY LEVEL 7 
(15 :*' SWITCH REGISTER'’ SWITCH DEFINITIONS 
(1) 100000 Sw15= 100000 
(1) 040000 Sw14= 40000 
(1) 020000 SW13= 20000 
(1) 010000 SWiz= 10000 
(1) 000 Sw1i= 4000 
(1) 2000 Sw10= 2000 
(1) 001000 swo9= 1000 
(1) 00 SwO8= 400 
(1) 000200 SwO7= 200 
(1) 000100 SwO6= 100 
(1) 000040 swOS= 40 
(1) 000020 Ssw04= 20 
(1) 000010 SwO3= 10 
(1) 000004 SWO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 swod= 1 
(1) -EQUIV SWO9,SW9 
(1) -EQUIV SWO8,SW8 
(1) -EQUIV SWO7,SW7 
(1) -EQUIV SW06,SW6 
(1) -EQUIV SWO5,SW5 
(1) -EQUIV SWO4,SW4 
(1) -EQUIV SWO3,SW3 
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(1) -EQUIV SwWO2,SW2 

(1) «EQUIV SWO1,SW1 

oh -EQUIV SwWO0,SWO 

(1) ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 

(1) 100000 BIT15= 100000 

(1) 040000 B1T14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BITI2= 1 

(1) 004000 BIT11= 4000 

(1) 2000 BIT10= 2 

(1) 001000 BITO9= 1 

(1) 00 BITO8= 400 

(1) 000200 BITO7= 

(1) 000100 TO6= 100 

(1) 0 BITOS5= 40 

(1) 000020 BITO4= 20 

(1) 000010 BITO3= 10 

(1) BITO2= 

(1) 000002 BITOI= 2 

(1) 000001 BI TOO= 

(1) EQUIV BITO9,BIT9 

(1) -EQUIV BIT08,BIT8 

(1) -EQUIV BITO7,BIT7 

(1) -EQUIV BITO6, 

(1) -EQUIV BITOS,BITS 

(1) -EQUIV BITO4, 

(1) -EQUIV BIT03,B1T3 

(1) -EQUIV BITO2,BIT2 

(1) -EQUIV BITO1,BIT1 

ot -EQUIV BITOO,BITO 

(1) ;*BASIC ‘'CPU'’ TRAP VECTOR ADDRESSES 

(1) ERRVEC= 4 OUT AND OTHER ERRORS 

(1) 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 

(1) 000014 TBITVEC=14 ik Me 

(1) 000014 TRIVEC= 14 3; TRACE nae 

(1) 000014 BPTVEC= 14 ; ;BREAKPOINT TRAP (BPT) 

(1) 000020 IOTVEC= 20 ieee cee TRAP (IOT) **SCOPE** 

(1) 000024 VEC= 24 oe FAIL 

(1) 000030 EMTVEC= 30 : FEMULATOR TRAP (EMT) **ERROR** 

(1) 000034 TRAPVEC=34 32" 'TRAP’* TRAP 

(1) Ll 60 ::TTY KEYBOARD VECTOR 

(1) 000064 PVEC= 64 se TTY PRINTER VECTOR 

(1) 000240 PIROVEC= 240 ;PROGRAM INTERRUPT REQUEST VECTOR 

68 .SBTTL FPP REGISTER DEFINITIONS 

69 000000 ACO =%0 

70 000001 AC =%1 

71 000002 AC2 =%e 

72 000003 AC3 =%3 

73 000004 AC4 =%4 

74 000005 AC5 =%5 

75 000006 AC6 =%6 

76 000007 AC7 =%7 


78 
79 -SBTTL TRAP CATCHER 
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=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT’' 

>*SEQUENCE TO STAIN ILLEGAL TRAPS AND INTER 

:*LOCATION Q CONTAIN S 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD ;:SOFTWARE SWITCH REGISTER 
.SBITL STARTING ADDRESS(ES) 

JMP @ASTA 


ART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


SEQ 0020 
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-SBTTL COMMON TAGS 


fF AAARARARAAAAAEAAAAAAAAEAAAAKEAARAAAAEKEAAAERARAAEAAAAARRERERHRRER EEE 


7*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
N THE PROGRAM. 


7*USED I 
001100 .=1100 

001100 SCMTAG: 7; START OF COMMON TAGS 

001100 000000 0 

Os 000 STSTNM: .BYTE 0 ;; CONTAINS THE TEST NUMBER 

00110 000 SERFLG: .BYTE 0 :; CONTAINS ERROR FLAG 

001104 000000 SICNT: 0 ;; CONTAINS SUBTEST ITERATION COUNT 

001106 000000 $LPADR: .WORD 0 ;: CONTAINS SCOPE LOOP ADD 

001110 000000 S$LPERR: .WORD 0 LY. TAINS SCOPE RETURN FOR ERRORS 

001112 000000 SERTTL: . D 0 : CONTAINS TOTAL ERRORS DETECTED 

001114 000 SITEMB: .BYTE 0 :: CONTAINS ITEM CONTROL BYTE 

001115 001 RMAX: .BYTE 1 77 CONTAINS MAX. ERRORS PER TEST 

001116 000000 SERRPC: .WORD 0 ;; CONTAINS PC OF LAST ERROR INSTRUCTION 

001120 Q00000 GDAD . WORD 0 : CONTAINS ADDRESS OF ‘GOOD’ DATA 

001122 000000 . WORD 0 ; CONTAINS ADDRESS OF ‘BAD’ DATA 

001124 000000 $GDDAT: .WORD 0 :: CONTAINS ‘GOOD’ DATA 

001126 000000 S$BDDAT: .WORD 0 :: CONTAINS *BAD' DATA 

001130 000000 . WORD 0 ; sRESERVED--NOT TO BE USED 

001132 000000 «WORD 0 

001134 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 

001135 000 SINTAG: .BYTE 0 37 INTERRUPT MODE INDICATOR 

001136 -WORD 0 

001140 177570 -WORD DSWR ; ADDRESS OF SWITCH REGISTER 

001142 177570 DISPLAY: .WORD DDISP ; ;ADDRESS OF DISPLAY REGISTER 

001144 177560 $TKS: 177560 :z:TTY KBD STATUS 

001146 177562 $TKB: 177562 7: TTY KBD BUFFER 

001150 177564 $TPS: 177564 >: TTY PRINTER STATUS REG. ADDRESS 

001152 177566 $TPB: 177566 :: TTY PRINTER BUFFER REG. ADDRESS 

001154 000 SNULL: .BYTE 0 3: CONTAINS NULL CHARACTER FOR 

001155 2 SFILLS: .BYTE 2 ; CONTAINS # OF FILLER CHARACTERS REQUIRED 

001156 012 $FILLC: .BYTE i2 7 INSERT FILL CHARS. AFTER A ‘LINE FEED 

001157 STPFLG: .BYTE 0 >: TERMINAL AVAILABLE’* FLAG (81 T<07>=0=YES) 

001160 000000 GAD: . 0 ; CONTAINS THE ADDRESS FROM 
s:WHICH (SREGO) WAS OBTAINED 

001162 000000 SREGO: .WORD 0 : CONTAINS ((SREGAD)+0) 

001164 000000 $REG1: .WORD 0 : :CONTAINS ((SREGAD)+2) 

001166 000000 SREG2: .WORD 0 : :CONTAINS ((SREGAD) +4) 

001170 000000 SREGS: .WORD 0 : CONTAINS ((SREGAD) +6) 

001172 000000 SREG4: .WORD 0 : :CONTAINS (($REGAD)+10) 

001174 000000 SREGS: .WORD 0 : : CONTAINS (($REGAD) +12) 

001176 000000 EG6: .WORD 0 : : CONTAINS ((S$REGAD) +14) 

001200 000000 SREG7: .WORD 0 : : CONTAINS ((SREGAD) +16) 

0071202 000000 SREG1O: .WORD 0 : : CONTAINS ((S$REGAD) +20) 

001204 000000 $REG11: .WORD 0 : CONTAINS (($REGAD) +22) 

001206 000000 S$REG12: .WORD 0 >: CONTAINS ((S$REGAD) +24) 

001210 000000 $REG13: .WORD 0 : : CONTAINS ((S$REGAD) +26) 

001212 000000 $REG14: .WORD 0 : :CONTAINS (($REGAD) +350) 

001214 000000 $REG15: .WORD 0 : :CONTAINS (($REGAD) +352) 

001216 000000 $REG16: .WORD 0 ::CONTAINS (($REGAD) +34) 

001220 000000 $REG17: .WORD 0 > :CONTAINS ((SREGAD) +356) 

001222 000000 $REG20: .WORD 0 >: CONTAINS (($REGAD) +40) 
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(3) pols 4 000000 1 WORD OQ :CONTAINS (($REGAD) +42) 
(3) 001226 000000 SREG22: .WORD 0 «CONTAINS ( ($REGAD) +44) 
(3) OO12 000000 WORD 0 :: CONTAINS (($REGAD) +46) 
(3) 001232 000000 $T -WORD 0 s USER DEFINED 
(3) 001234 000000 STMP1 WORD 0 ; USER DEFINED 
(3) 001236 000000 STMP2 WORD 0 : ;USER DEFINED 
(3) 001240 000000 STMP3 WORD 0 ; USER DEFINED 
(3) 001242 000000 STMP4 WORD 0 : USER DEF INED 
(3) 001244 000000 STMP5 WORD 0 : USER DEF INED 
(3) 001246 000000 WORD 0 : USER DEFINED 
(3) 000000 STMP7 WORD 0 ;;USER DEFINED 
(3) 001252 000000 STMP10: .WORD 0 7 USER DEFINED 
(3) 001254 000000 STMP11: .WORD 0 7 USER DEFINED 
(3) 001256 000000 STMP12: .WORD 0 : USER DEFINED 
(3) 001260 000000 $STMP13: .WORD 0 ; USER DEFINED 
(3) 001262 000000 STMP14: .WORD 0 : ;USER DEFINED 
(3) 001264 000000 STMP15: .WORD 0 7 USER DEFINED 
(3) 001266 000000 STMP16: .WORD 0 ; ;USER DEFINED 
(3) 001270 000000 $TMP17: .WORD 0 : ;USER DEFINED 
(3) 001272 000000 STMP20: .WORD 0 : USER DEFINED 
(3) 001274 000000 $STMP21: .WORD 0 : USER DEFINE 
(3) 001276 000000 STMP22: .WORD 0 : ;USER DEF INED 
(3) O01 000000 STMP23: .WORD 0 : ;USER DEF INED 
(1) 001302 000000 STIMES: 0 : MAX. NUMBER OF ITERATIONS 
(1) 001304 000000 SESCAPE :0 : ESCAPE ON ERROR ADDRESS 
(1) 001 177607 000377 $BELL: .ASCIZ 5 deeaitaaal $3 CODE FOR BELL 
(1) 001312 077 S$QUES: .ASCII 7 QUESTION MARK 
<1) 001313 015 SCRLF: .ASCII <i5> ;; CARRIAGE RETURN 
(1) 001314 000012 SLF : eASCIZ <12> :;LINE FEED 
(2) {EERE AAKEEEEEEREKEKEAKEKEREEKKEKEREKAEEREEKERERERKEEEEEKE 
ffs “SBTTL APT MAILBOX-E TABLE 
(3) SLR ERE REE REE EEER ERE REE RE REREEEEEE REE EREREERERERRERRER EEE 
(2) EVEN 
(2) 001316 SMAIL: ;;APT MAILBOX 
(2) 001316 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
(2) 000000 SFATAL: .WORD AT. 7 ;FATAL ERROR NUMBER 
(2) 001322 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 000000 S: .WORD :;PASS COUNT 
(2) 001326 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
(2) 000000 -WORD AUNIT ~~ ;;1/0 UNIT R 
(2) 001332 000000 -WORD AMS 7 MESSAGE 
(2) 000000 SMS WORD AMSGLG ;;MESSAGE L 
(2) 001336 $E TABLE 73 ENVIRONMENT TABL 
(2) 001336 000 SENV -BYTE AENV : ENVIRONMENT BYTE 
(2) 001337 000 SEN -BYTE AENVM ;; 

(2) 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

(2) 001342 000000 $US AUSWR ;;USE 

(2) 001344 000000 SCPUOP: .WORD ACPUOP ;;C TYPE ,OPT 

(2) z* BITS bat te TYPE 

(2) ;* 1/04=01,11/05=02, 11/20=03.11/40=04,11/45=05 
(2) + te 70=06.PDQ=07,0=10 

(2) :* BIT 10=REAL TIME CLOCK 

(2) 3;* BIT 9=FLOATING POINT oe 

(2) 3* BIT 8=MEMORY MANAGEMENT 

(2) 001344 SETEND: 
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ss : .SBTTL ERROR POINTER TABLE 
(1) ;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) 2THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(1) : *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
(1) > *NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 
oa = *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) se EM ::POINTS TO THE ERROR MESSAGE 
(1) ;* DH :;POINTS TO THE DATA HEADER 
(1) 3* DT 3;POINTS TO THE DATA 
oie 3* DF ::POINTS TO THE DATA FORMAT 
(1) 
(1) 001346 SERRTB: 
81 ; ITEM NUMBER 
6 036417 -WORD EMI 
001350 036446 -WORD EM2 
001352 036503 -WORD EM3 


-SBTTL ACT11 HOOKS 


FEAR KEEAEKEKEKEKKERKEERREEKEREKEKKKEKEEKEKKKEEEEKKKHEEKEKEEERKEEEEREEEE 


HOOKS REQUIRED BY ACT11 


001354 SSVPC=. :SAVE PC 
000046 055009 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 “WORD 0 ::2)SET LOC. 352 TO ZERO 

001354 " =$SVPC :: RESTORE P 


.SBTTL APT PARAMETER BLOCK 


{RARER EKEEEEKRKEKAREEEEREEREREKEREKEERKKEKEEREREEARKEEREKRKEKEKEEEE 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


S RAERKEKEEKKEKREEREEKKKKEEEERERAEKREARERAREEERREKEKEKEKEEEEEERREREKEREKE 


001354 ~-SX=.  ;33SAVE CURRENT LOCATION 

000024 ~=24 +<SET ns FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 sFOR APT START UP 

000044 ~=44 ; POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001354 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001354 .=.$X 3; ;RESET LOCATION COUNTER 


LOBES TAI IIIS O SSI IIIA SOOO ICSU TOIDIDOISIOIIIUISIDIDDIDOI SIO IER II iit 
; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 


Ee eS oe re ee et gee 
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001354 SAPTHD 

001354 000000 $HIBTS: .WORD 0 : 3 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001356 001316 SMBADR: .WORD SMAIL ay} OF APT MAILBOX (BITS 0-15) 

001360 000002 STSTM: .WORD 2 > ;RUN TIM OF LONGEST TEST 

001362 SPASTM: .WORD 4 : RUN Hs IN SECS. OF 1ST PASS y 1 UNIT (QUICK VERIFY) 
001364 000000 M: .WORD Q sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001366 000014 - WORD $ETEND-SMAIL/2 ; LENGTH MAILBOX~E TABLE (WORDS) 

001370 START 
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P11 


112767 


012737 
0 


012767 
012767 


013746 
01 


012637 


005067 
132767 
001403 
012767 


12-MAR-80 07:22 


001100 
001140 
001100 
033132 
000340 
033412 
000340 
035546 
000340 
035634 
000340 
031242 
177600 
177576 
000001 


033102 
000340 


000002 
001564 
001554 


001664 
000176 
000174 
000004 
177414 
000200 


001340 
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000014 
000016 
031344 
000010 


031320 


000010 


177276 
177272 


177246 
177242 


177421 
177212 
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;>;CLEAR THE COMMON TAGS (SCMTAG) AREA 
Ag A#SCMTAG ,R6 ‘TEAR LOCATION TO BE CLEARED 
CMP 


SEQ 0025 


(R6)+ CLEAR MEMORY LOCATION 
ASWR RG ::DONE? © 
me ::LOOP BACK IF NO 
MOV WSTA ::SETUP THE STACK POINTER 
:: INITIALIZE A FEW VECTORS 


MOV OPE ,a#IOTVEC ‘7107 VECTOR FOR SCOPE ROUTINE 
MOV #340, aM#IOTVEC+2 ;:LEVEL 7 
MOV #SERROR , AWEMTVEC EMT VECTOR FOR ERROR ROUTINE 
MOV #340, 6 SeEMTVECLD VEL 7 
MOV #STRAP, a#TRAPVEC Par yt: VECTOR FOR TRAP CALLS 
MOV #340, @ATRAPVEC+2; LEVEL 7 
MOV DN, @4PWRVEC ;;POWER FAILURE VECTOR 
MOV #340, aAPWRVEC+2 ::LEVEL 7 
MOV SENDCT,SEOPCT :: END-OF =PROGRAM COUNTER 
CLR TIMES :: INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRES 
MOVB SERMAX :ALLOW ONE ERROR PER TEST 
;3 INITIALIZE THE” ‘esait TRAP VECTOR. THEN LOAD LOCATION ‘SRTRN'’, IN 
:: THE 'END-OF=PASS'' ($EOP) ROUTINE, WITH A 'RTI'' OR 'RIT'’. 
MOV PSRIRN- BA TBITVEC :3SET ss BIT VECTOR TO $RTRN 
MOV #340, @WTBITVEC+2 ;:LEVEL 
MOV ARTI. SRTRN :§ ; SRTRN 10, A RTI 
MOV #65$Q#RESVEC 2:TRY TO DO AR 
CLR -(SP) + 2 DUMMY PS 
MOV #64$,-(SP) : 
RTT >: TRY THE R 
64$: MOV #RTT,$RTRN *:RTT IS LEGAL=-SET SRTRN TO A RIT 
65$: ADD #10.S ::RTT ILLEGAL--CLEAN OFF THE STACK 
66$: MOV ORESVEC#2, @WRESVEC ;;RESTORE TRAP CATCHER 
CLR STBIT :CLEAR ''T'’ BIT SWITCH 
MOV #.,$LPADR ; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV PERR UP THE ERROR LOOP ADDRESS 
;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
>:EQUAL TO A ‘'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @¥ERRVEC,-(SP) ::SAVE ERROR VECTOR 
MOV #67$,aHERRVEC ::SET UP ERROR VECTOR 
MOV ADSWR, SWR ;3SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR >: TRY TO REFERENCE SW 
BNE 69$ > =BRANCH IF NO TIMEOUT TRAP OCCURRED 
;3AND THE HARDWARE SWR IS NOT = -1 
BR 68$ *:BRANCH IF NO TIMEOUT 
67$: MOV #68, (SP) *:SET UP FOR TRAP RETURN 
68$: MOV #SWREG, SWR /iPOINT TO SOFTWARE SwR 
MOV #DISPREG, DISPLAY 
69$: MOV (SP)+,QMERRVEC ::RESTORE ERROR VECTOR 
CLR SPASS ::CLEAR PASS COUNT 
BITB = #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEQ 70$ YES,USE NON-APT SWITCH 
-_ MOV ASSWREG, SWR *°NO,USE APT SWITCH REGISTER 
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CJKDDB.P11 12-MAR-80 07:22 TYPE PROGRAM NAME SEQ 0026 
91 py ja TYPE PROGRAM NAME 
(2) sz TYPE THE NAME OF THE PROGRAM IF einat ape 
(2) 001726 005227 177777 INC #-1 zzFIRST TIME? 
(2) 001 001051 BNE 718 :  ORANCH 1F NO 
(2) 022737 033000 000042 CMP MSENDAD ,a#42 3: ;ACT=-11? 
(2) 001742 001445 oe0 71$ ; sBRANCH IF YES 
(2) 001744 104401 002012 YPE es sTYPE ASCIZ STRING 
(3) . SBITL GET VALUE FOR SOF TWARE SWITCH REGISTER 
(3) 001750 005737 000042 TST a42 7 ARE WE RUNNING UNDER XXDP/ACT? 
(3) 001754 001012 BNE 73$ : BRANCH IF YES 
(3) 001756 126727 177354 000001 CMPB SENV,41 : ARE WE RUNNING UNDER APT? 
(3) 001764 001406 BEQ ; ;BRANCH IF YES 
(3) 001766 026727 177146 000176 CMP SWR ,ASWREG : SOFTWARE SWITCH REG SELECTED? 
(3) 001774 001005 BNE 74$ ; ;BRANCH IF NO 
(3) 001776 104406 GTSWR ::GET SOFT-SWR SETTINGS 
(3) 000403 BR 74$ 
@ a 112767 000001 177124 oe MOVB #1,$AUTOB ::SET AUTO-MODE INDICATOR 
(2) 002010 000422 BR 71$ sGET OVER THE ASCIZ 
(2) -:72$: .ASCIZ <CRLF>*CJKDDB KEFII-A DIAGNOSTIC PART 2*<CRLF> 
(2) 002056 71$: 
93 002056 LOOP: 
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: TEST 1 STF WITH ILLEGAL ACCUMULATOR TEST 
‘THIS IS A TEST OF THE STF INSTRUCTION USING ILLEGAL ACCUMULATOR 7, MODE 0. 
** 


e 
J LARK EEREEREKEKEEEEEEREREKREEKKKEKEKEKEKKEKEKEERKEKEREKEEKRKEEKEKEEEEEKE 


ee te tet an ieee 
VETSEYREGRKER 


{2 002056 000004 TST1: SCOPE 

106 002060 0001: 

(1) 002060 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
107 002062 005000 CLR RO ;SET THE FPS. 

i 002064 170100 LDFPS RO 

110 002066 012737 002124 000244 MOV #OOOT ,a4FPVECT ;SET UP FOR FP TRAPS. 

i 002074 012737 002102 001236 MOV #1$,a4STMP2 

113. 002102 174007 1$: STF ACO,AC7 s;THIS TEST INSTRUCTION SHOULD 

106 “CAUSE A A TRAP. 

116 sREPORT FAILURE OF USE OF ILLEGAL ACCUMULATOR 7 TO CAUSE AN FPP TRAP. 
117 002104 0002: 

118 002104 170200 STFPS RO sGET FPS. 

119 002106 010037 001240 MOV RO, a4#$TMP3 

120 002112 170300 STST RO sGET FEC. 

121 002114 010037 001242 MOV RO, a4STMP4 

122 002120 104001 3$: ERROR 1 : STF WITH ILLEGAL ACCUMULATOR, MUDE 
123 -0, DIDN'T TRAP. ST 765 TO ST 537. 
124 002122 000434 BR OOODONE 
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125 
126 
127 ied 4 011600 
128 0021 Oee 2700 002104 
1 pote has 
i 002134 0001357 036134 
133 
133 002140 ele 
134 002142 170505 
135 002144 010437 001240 
13% 002150 010537 001242 
1 002154 012702 100000 
138 easier 012703 000002 
139 002164 010237 001244 
140 002170 010337 001246 
res 002174 022626 
143 002176 020204 
We 002200 001402 
146 002202 104001 
147 002 03 
148 
149 002 020305 
1a 002210 001401 
13¢ 002212 104001 
154 002214 
(1) 002214 104413 
(1) 
(1) 
(1) 
(1) 
155 
156 
157 
163 
164 
(3) 
(4) 
(4) 
(4) 
(3) 
{2 002216 000004 
166 002220 
3 002220 104414 
168 002222 012700 177777 
169 002226 012701 002356 
170 002232 012702 000014 
171 002236 010021 
002240 077202 


MACY11  ; hes 


; TRAP TO OOOT, HERE, WHEN THE EXPECTED ERROR OCCURS. 
OO00T: MOV ( 


0003: 


1$: 


OOODONE : 


: 2 
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STF WITH ILLEGAL ACCUMULATOR TEST 


SEQ 0027 


SPS RO :MAKE SURE THE ERROR OCCURRED 
CMP #0002 ,RO SAT THE CORRECT ADDRESS. 
BEQ CH IF TRAP ADDRESS CORRECT. 
JMP a#FPSPUR IF INCORRECT GO REPORT SPURIOUS 
STFPS 4 :GET FPS. 
STST RS “GET FEC. 
MOV R4, aHSTMP3 “SAVE DATA: INCASE OF ERROR. 
MOV RS. avSTMP4 
MOV #100000 ,R2 sEXPECTED FPS 
MOV #2,R3 “EXPECTED FEC 
MOV R2. a¥STMPS 
MOV 3. aSTMP6 
CMP (SP)+,(SP)+ :RESET THE STACK. 
CMP R2,R4 :WAS FPS CORRECT? 
BEQ 0004 “BRANCH IF YES. 

“OTHERWISE REPORT FPS INCORRECTLY 

ERROR 1 “SET AFTER USE OF ILLEGAL ACC. 

OOODONE 
CMP R3,R5 ;WAS THE FEC CORRECT? 
BEQ OOODONE H IF CORRECT. 

: OTHERWISE REPORT INCORRECT FEC 

ERROR 1 AFTER USE OF ILLEGAL ACC. 
RSETUP AND 


= G0 INITIALIZE THE FPS AND STACK; 
USER HAS EXPRESSED 
TO CHANGE THE SOFTWARE 
RTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


SEEKER AEKREKEREEREAEEKREEREREEEEKREEREKKEEEKREEREREKEEEKRRERERKEKREEERE 


:#TEST 2 
jsTHIS IS A TEST OF THE STF INSTRUCTION USING FDST MODE 1. 


sthdsebbbenseanendasewnscadebasactieeetenssqenaseercetnnnerssenes 


rST2: 
PPP 1: 


PPP2: 


SCOPE 


FDST MODE 1, FLOATING MODE, TEST 


;SET UP THE LOOP ON ERROR ADDRESS. 


#~1 ,RO ;SET UP_A — PATTERN IN THE 
APPPBFO,R1 ; INPUT BUFFER. 

#14,Re 

RO,(R1)+ 

R2,PPP2 


C 3 
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CJKDDB KEF11=-A DIAG PART 2 MACY11 30A(1052)_ 1 
CJKDDB.P11 12=MAR-80 07:22 Tz FDST MODE 1, FLOATING MODE, TEST SEQ 0028 
174 002242 012700 000200 MOV #200,R0 :SET FD MODE. 
175 ons5e5 170100 LDFPS R 
176 002250 012700 002406 MOV #PPPTP1 RO - PUT TEST DATA INTO ACO. 
Ve 002254 172410 LOD (RO) ,ACO 
179 902256 012700 002372 MOV #PPPBF1,RO :FDST ADDRESS. 
180 00 005002 CLR R2 “CLEAR THE FPS. 
181 170102 LDFPS Re 
182 266 012737 002300 001236 MOV #PPP3, aASTMP2 
185 002274 010037 001240 MOV RO, a¥v$TMP3 
185 002300 174010 PPP3: STF AcO, (RO) :TEST INSTRUCTION. 
187 002302 022700 002372 CMP #PPPBF1,RO :WAS RO MODIFIED DURING EXECUTION? 
188 002306 001404 BEQ PPP, “BRANCH IF RO NOT MODIFIED, CORRECT. 
190 002310 010037 001242 MOV RO, aA4STMP4 : OTHERWISE REPORT ERROR, RO MODIFIED. 
191 002314 104001 1$: ERROR 1 
192 002316 000456 BR PPPDONE :GO TO NEXT TEST. 
194 2700 002372 PPP4: MOV #PPPBF1,RO :CHECK THE DATA IN THE OUTPUT BUFFER. 
195 002324 012701 002406 MOV #PPPTP1_R1 
19% 002330 022021 CMP (RO)+, (R1)+ 
197 002332 001031 BNE PPP10 :BRANCH IF INCORRECT. 
198 002334 022011 CMP (RO) +, (R1) 
199 002336 001027 BNE PPP10 :BRANCH IF INCORRECT. 
200 002340 022720 177777 CMP #-1, (RO)+ “WAS FLOATING MODE USED? 
201 002344 001034 BNE PPP}5 “BRANCH IF NOT. 
202 002346 022710 177777 CMP #~1, (RO) 
203 002352 001031 BNE PPP} 5 
204 002354 000437 BR PPPDONE :GO TO NEXT TEST. 
206 002356 177777 177777 177777 PPPBFO: .WORD <-1.-1,-1,-1,-1.-1 
on 002364 177777 177777 177777 
208 002372 177777 177777 177777 PPPBF1: .WORD <-1.-1,-1,-1.-1.-1 
jan 002400 177777 177777 177777 
210 002406 123456 023456 PPPTP1: .WORD  123456,23456 
gn 002412 034567 045671 -WORD  34567,45671 
213 -REPORT DATA IN OUT PUT BUFFER INCORRECT. 
214 002416 012737 002406 001242 PPP10: MOV #PPPTP1 , a#STMPS 
215 002424 012737 002372 001240 MOV #PPPBF 1. aaSTMP3 
216 002432 104001 1$: ERROR 1 :BAD DATA. 
217 002434 000407 BR PPPDONE 
219 :REPORT FLOATING MODE NOT USED, BUT FD FAILED. 
220 002436 012737 002406 001242 PPP15: MOV #PPPTP1 , a#$TMP4 
221 002444 012737 002372 001240 MOV #PPPBF 1, aaSTMP3 
eee 002452 104001 1$: ERROR 1 :ST 707 TO 245 INTO 244 (BUT FD). 
224 002454 PPPDONE : 
002454 104413 RSETUP -GO INITIALIZE THE FPS AND STACK: AND 


“SEE IF THE USER HAS EXPRESSED 
“THE DESIRE TO CHANGE THE SOFTWARE 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


012700 
172410 
012700 
005002 
170102 
012737 
174020 


022700 


177777 
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177777 
002620 
000014 


000200 
002650 
002634 


002534 
002640 
001242 
002640 
002634 
002650 
177777 


177777 


177777 


D 3 
oat tee 07:25 PAGE 1-12 
T MODE 1, FLOATING MODE, TEST 


: VIRTUAL CONSOLE SWITCH  hieat (HAS 
; THE USER TYPED CONTROL G?) 


MACY11 ell 
T2 SEQ 0029 


'MmARARASAAALASAALALLALALARARASRAASALARAAARRRALASARARARARASALAR AAS SS | 


: #TEST 3 FDST MODE 2 TEST 
:*THIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 


EE Er ge ee oT a ot 


TST3: SCOPE es 
:FIRST TEST STF. 
0001: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #-1,RO :SET UP THE OUTPUT BUFFER. 
MOV #QQQBFO,R1 
MOV #14,R2 
QQ02: MOV RO, (R1)+ 
S0B R2, 0002 
MOV #200.RO :SET FD MODE. 
LDFPS R - 
MOV #QQQTP1 RO aw TSETUP ACO. 
LDD (RO) ,ACO : 
MOV alien i :FDST ADDRESS. 
CLR R2 
LDFPS R2 :SET FPS. 
001236 V #0003, a#STMP2 
Q003: STF ACO, (RO) + : TEST INSTRUCTION. 
CMP #QQQBF1+4.RO §_;WAS RO INCREMENTED BY 4 PROPERLY? 
BEQ 2004 :BRANCH IF RO CORRECT 
MOV RO, a*STMP4 “REPORT RO INCORRECT AFTER FDST MODE 2. 
001240 MOV #OQQBF 1+4,avSTMPS 
1$: ERROR *BAD CONSTANT USED OR DIDN'T GO 527 TO 642 
BR QQQDONE 
Q004: MOV #QQQBF 7 ,RO :WAS THE OUTPUT DATA CORRECT? 


MOV #QQQTP1 R1 


CMP (RO)+,(R1)+ 
BNE Q0010 ;BRANCH IF INCORRECT. 
CMP (RO) +, (R1)+ 
BNE Q0010 ;BRANCH IF INCORRECT 
CMP (RO) + ,#-1 “SEE IF ANY OTHER DATA BUFFER WORDS WERE MODIFIED. 
BNE Q0010 :BRANCH IF INCORRECT. 
CMP (RO) + ,#-1 
BNE 00010 ;BRANCH IF INCORRECT. 
BR Q0Q020 
177777 QQQBFO: .WORD <-1,-1,-1,-1,-1.-1 


CJKDDB KEF11-A DIAG PART 
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305 


SSECSaR 


WNAANAAAA 
ed eed eed eed aed ed aed =o od 


V—_—e Fan toe Tate, a, ele 
fw — ot od 
i el 


002626 
0026 


005656 
002652 


002654 
002656 
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177777 
177777 
177777 


002650 
002634 


002620 
000014 


000200 
002650 
002634 
002746 
002644 
001242 
002644 


002634 
002650 
000004 


002650 
002634 


MACY11 apg t05e) | 
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177777 
177777 
177777 


001236 


001240 


QQQBF 1: 
QQQTP1: 


00010 
1$: 


. 2 
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FDST MODE 2 T 
WORD -1,°1,°1,°1,°1.°1 
76543 
65432 
54321 
43210 
;REPORT OUTPUT ~ INCORRECT: 

: MOV #QQQTP1 ,a#STMPS 
MOV #QQQBF 1, av$STMPG 
ERROR 1 ;BAD DATA 
BR QQQDONE 


;NOW TEST STD MODE 2. 


BR QQQD0NE 
de ps INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 


#QQQBF0,RO “SET UP DEFAULT INPUT DATA BUFFER. 
RO.R1 
#14 ,R2 
RO, (R1)+ 
R2.90022 
#200,RO :ENTER FLOATING DOUBLE MODE. 
#QQQTP1 RO :LOAD ACO. 
(RO) ,ACO 
RO :SET DESTINATION ADDRESS. 
#00023, a4"$TMP2 
ACO, (RO) + : TEST INSTRUCTION. 
#QQQBF1+10,RO  :WAS RO INCREMENTED BY 10 CORRECTLY? 
20024 “BRANCH IF CORR 
RO, a4 STMPS *REPORT RO SNCORRECTLY INCREMENTED. 
#OQQBF 1+10, a¢STMP3 
1 :DO NOT INCREM BY 10 BAD CONSTANT 
QQQDONE | 
#QQQBF 1 ,RO :DID THE DATA REACH THE OUTPUT BUFFER CORRECTLY? 
#QQQTP1_R1 
#4,R2 
(RO) +, (R1)+ 
aoe? :BRANCH IF INCORRECT. 


#QQQTP1 .a#STMP3 
#OQOQBF 1, aS TMPS 
1 BAD DATA 


‘2 nt eee THE FPS AND oe: AND 
hy 3 DESIRE TO CHANGE 


SOF TWARE 
;VIRTUAL CONSOLE SWITCH on (HAS 
; THE USER TYPED CONTROL G?) 


SEAR EE ERE REE EERE REE AERAERRERAEEERAREAE EERE REE ERE 


QQ020: 

LPERR 

MOV 

MOV 

MOV 
QQQ22: MOV 

S08 

MOV 

LDFPS 

MOV 

LDD 

MOV 

MOV 
QQ023: STD 

CMP 

BEQ 

MOV 

MOV 
1$: ERROR 

BR 
Q0024 MOV 

MOV 

MOV 
1$: CMP 

BNE 

S08 

:RE 
00025: 

MOV 
1$: ERROR 
QQQDONE : 

RSE TUP 

“STEST 4 


a 


o 


FDST MODE 2, WITH GR7, TEST 


SEQ 0030 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


SUSAUUSE 
PER ARERR 
NN -Of 


Wwe 
—NNO 


005201 


12-MAR~80 07:22 


003122 
003170 
000004 


000200 
003200 


003220 
003120 


003210 
003122 
000004 


000003 


MACY11 SACO) 
4 


.. 
y 


3 
alt tees 07:25 " PAGE 1-14 
T MODE 2, WITH GR7, TEST 


:*THIS IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE MODE. 
+ 


. 
FF AAAAAAAAAAAARAAAAAAARAAAAAAARAAEAAAAARAAARARARAERAAERAAAARAREERES 


TST4: SCOPE 
RRR1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #RRR3,RO *SET UP THE DATA BUFFER FOLLOWING THE TEST INSTRUCTION. 
MOV #RRRTP1 RI 
MOV #4 .R 
1$: MOV (RO) +, (R1)+ 
SOB R 
MOV #200 .RO sENTER FLOATING DOUBLE MODE. 
MOV ARRRTP2 RO :SET UP ACO. 
LDD (RO) ,ACO 


#RRRIO, A#ERRVECT ;SET UP FOR AN ODD ADDRESS. 
MOV #RRR2 ONS TMP2 


CLR R4 
:THIS IS . TEST INSTRUCTION. IT SHOULD MODIFY THE FIRST LOCATION 
SAF eo IT By. TEAD 


OF AN I NCRE 

; EXECUTED SINCE THE PC 

:MODE ADDRESSING. THUS AFTER THE EXECUTION OF THE NEXT 5 INSTRUCTIONS 
;R1_ SHOULD CONTAIN 3 AND R4 SHOULD CONTAIN 0. 

RRRe: A : TEST INSTRUCTION. 


STD CO, (R7)+ 
RRR3: INC RI >THE STD INSTRUCTION SHOULD CHANGE THIS TO INC R4. 
= © 
MOV #RRRE XP ,RO -SEE IF THE DATA WAS OUTPUT CORRECTLY. 
MOV #4.R3° 
RRRG: CMP (RO) +, (R2)+ 
BNE RRR2S :BRANCH IF INCORRECT. 
SOB R3,.RRR4 
TST RG :MAKE SURE R4 IS 0. 
BNE RRR15 “BRANCH IF R4& IS INCORRECT. 
CMP #3,R1 “SEE IF R1 IS CORRECT. 
BNE RRR15 “BRANCH IF R17 IS INCORRECT. 
BR RRRDONE 
: THESE ARE TEST DATA PATTERNS USED TO SET UP THE OUTPUT BUFFER AT RRR3. 
RRRTP1: INC R1 
INC R1 
INC ORI 
:THIS IS THE DATA PUT IN ACO BEFORE EXECUTION OF THE STD. 
RRRTP2: INC R4 
i: 
:THIS IS THE EXPECTED DATA AT RRR3 AFTER EXECUTION OF THE STD. 
RRREXP: INC RG 
INC RI 


SEQ 0031 


2 
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CJKDDB.P11 12-MAR-80 07:22 TS T MODE 2, WITH GR7, TEST SEQ 0032 
379 003214 005201 INC R1 
380 003216 005201 INC R1 
$e T's oa IN THE FDST FLOWS RESULTS IN AN ODD ADDRESS TRAP THROUGH 
383 003220 011602 RRR10: MOV (SP) .R2 ;SEE IF THE TRAP WAS BECAUSE OF AN ODD ADDRESS. 
384 003222 032702 000001 BIT #1 Re 
385 003226 001005 BNE RRR11 ;BRANCH IF YES. 
386 00 020227 003124 CMP Re ati ;SEE IF THE TRAP OCCURRED AT THE TEST INSTRUCTION. 
387 00 001412 BEQ RR12 “BRANCH IF YES. 
3 003236 000137 036166 JMP SCP SPUR sOTHERWISE REPORT A SPURIOUS TRAP THROUGH VECTOR 4. 


;REPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
390 003242 ab Ta 001236 RRR11: MOV R2,a4$STMP 
391 00 ri 012737 003124 001240 MOV #RRR3+2 , aASTMPS 


392 00 022626 CMP (SP)+,(SP)+ 
393 003256 104001 1$: ERROR 1 :BAD CONSTANT #2 + PC ODD ADDR. 
394 003260 000437 BR RRRDONE 
395 003262 010237 001236 RRR12: MOV R2,a4STMP2 
396 003266 022626 CMP (SP)+,(SP)+ 
397 003270 104001 1$: ERROR 1 ;0DD ADDRESS TRAP 
oS 003272 000432 BR RRRDONE ;WRONG MODE USED. 
400 :REPORT DATA INCORRECT: 
401 003274 012737 003122 001240 RRR25: MOV #RRR3 , a#STMP3 
402 003 012737 003210 001242 MOV MRRRE XP ,aASTMPS 
403 003310 104001 1$: ERROR 1 sBAD DATA BUT GR7 FAIL 
oe 003312 000422 QR RRRDONE 
406 :REPORT PC INCORRECT MODIFIED DURING THE EXECUTION A Bee a 
407 sMODE. THE PC SHOULD HAVE BEEN INCREMENTED BY 2 BUT IT WASN'T 
408 sUSE R1 AND R4 TO COMPUTE THE ACTUAL ACTION THAT o% TAKEN ON THE PC. 
409 003314 012737 003124 001240 RRR15: MOV #RRR3+2 ,aASTMPS 
410 003322 005704 TST RS :I1S R4& CLEAR. 
411 003324 001404 BEQ 1$ 
412 003326 012737 003122 001242 MOV ARRR3 , aS TMPS 
413 003334 000410 BR 
414 003336 012702 003124 1$: MOV ARRR3+2,R2 
415 003342 062701 177775 ADD #-3,R1 
416 003346 006301 ASL R1 
417 003350 160102 SUB R1,R2 
418 003352 010237 001242 MOV R2,a4STMPS 
419 003356 2$: 
20 003356 104001 3$: ERROR 1 ;BAD CONSTANT PC+ 
421 003 RRRDONE : 
(1) 003360 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) = SEE IF THE USER HAS EXPRESSED 
(1) at DESIRE TO CHANGE T SOF TWARE 
(1) sVIRTUAL CONSOLE SWITCH a (HAS 
i : THE USER TYPED CONTROL G?) 
428 J EAA EEEEEEEEEEREREREEAAEEARERAEARRREEAEERAAAERAERERERER RS 
a :#TEST 5 FDST MODE 4 TEST 
(4) :*THIS IS A TEST OF STD WITH FDST MODE 4. 
(3) ’ ET OR nee CT TOO ee Tee ee TN 


(2) 003362 000004 1815: SCOPE 
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4 


4 
(1) 
431 


sessusss> 


WaLS 
NNO 


non 


oo-0-0O000 


—— 
mr 


012700 
174040 
00 


177777 
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7 
177777 


011600 
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177777 


003522 
000010 
000200 
003542 
003562 
003442 
003532 


003522 


003522 
003542 
000004 


177777 
003532 


MACY1T1 ahaa 


S 


eR 


SSS1: 


SSS2: 


1$: 


2$: 


:THIS IS THE OUTPUT DATA BUFFER. 
SSSBFO: 


SSSA1: 


SSSTP2: 


3 
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FDST MODE 4 
LPERR 
MOV #SSSBFO.R1 
MOV #10_R 
MOV RO, (R1)+ 
SOB 
MOV #200,RO 
LDFPS R 
MOV #SSSTP1 RO 
LDD (RO) 
MOV 
MOV #SSS2 TMP 
MOV SA1 RO 
STD ACO,-(RO) 
INC 

CMP RO, ASSSBFO 
BNE $515 

MOV #SSSBFO.RO 
MOV #SSSTP1.R1 
MOV #4 R2 

CMP (RO). (R1)+ 
BNE 

SOB > $3 

MOV #-1.RO 
MOV #SSSA1,R1 
MOV »R2 

CMP RO. (R1)+ 
BNE $25 

SOB R2,2$ 

BR SSSDONE 


:SET UP THE LOOP ON ay ADDRESS. 
:SET UP THe OUTPUT BUFFER 


;ENTER FLOATING DOUBLE MODE. 
:SET UP ACO. 

wsssi0, @WERRVECT ;SET UP FOR A TRAP TO 4. 

;SET UP THE DESTINATION ADDRESS. 
: TEST INSTRUCTION. 


;SEE IF RO WAS DECREMENTED PROPERLY. 
BRANCH IF RO IS INCORRECT. 
“WAS THE OUTPUT DATA CORRECT? 


;BRANCH IF INCORRECT. 
:I1S THE REST OF THE OUTPUT BUFFER CORRECT, -1? 


;BRANCH IF INCORRECT. 


;IF AN ODD ADDRESS TRAP OCCURS COME HERE: 


$8510 


MOV (SP) ,RO 


;SEE IF THE TRAP ACCURRED ON THE TEST INSTRUCTION. 


SEQ 0035 
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CJKDDB P11 


eater 
0ooa~ NO~ 


VIMIMAVIVIUNUIS VIVA 
mn 
N— 


viele 


003444 
003446 
036166 
001236 


004014 
177777 
000013 
004014 
000200 
004040 
004050 
000006 
004030 


MACY11 ete 


001240 


001240 
001242 


001242 
001240 


004030 


000004 
001236 


é5S11: MOV. RO.a#$TMP2 
2s: 1 


= 
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se 07:25 
FDST MODE 4 TEST 
CMP rf ASSS2+2 
BEQ ;BRANCH IF YES. 
CMP RO gasses | 
BEQ SSS! ;BRANCH IF YES. 
MP GO REPORT A SPURIOUS TRAP THROUGH 4. 


avcP SPUR ; OTHERWISE 
IN FDST FLOWS RESULTED IN AN ODD ADDRESS. 


;FDST FORK X ODD AD RES. 
SSSDONE 


;REPORT RO ~~ aie 


mov #SSSBFO,a#$TMP3 
1$: ERROR 1 :RO NOT DECRE PROP 
BR SSSDONE 
:REPORT OUTPUT DATA INCORRECT: 
$SS$20: MOV #SSSBFO, a#STMP3 
MOV #SSSTP1 .a#S TMP 
1$: ERROR 1 :BAD DATA 
BR SSSDONE 
SSS25: MOV #SSSA1, aA#STMPS 
MOV #SSSTP2, a#$TMP3 
. ERROR 1 :DATA BAD OUTSIDE TARGET AREA 
RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
=SEE IF THE USER HAS EXPRESSED 
“THE DESIRE TO CHANGE THE SOFTWARE 
*VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?) 
SEERA REKARARRARAEEAEAEARAAAEKEAEEEAAAAAEAERAERERAEAETERERERERES 
: TEST 6 FDST MODE 3 TEST 


THIS IS A TEST OF FDST MODE 3 USING STD. 


5; 
POP eT IIT iti tit itittitit it iiti ii iiiiitiii titi iiiitiiiiiiiiiit iis 


TST6: SCOPE 


TTT1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #TTTBFO,R1 *SET UP THE OUTPUT DATA BUFFER. 
MOV #13,R2 
1$ MOV RO, (R1)+ 
S08 R 
MOV #TTTBFO,aa#TTTA2 
MOV #200 ,RO sENTER DOUBLE FLOATING MODE. 
MOV wTTTTE | RO -SET UP ACO. 
MOV ATTTIO, aMERRVECT :SET UP FOR TRAPS TO 4. 
MOV TTT2,a4$T 
MOV #ATTTA2,RO :SET UP THE DESTINATION ADDRESS. 
TTT2: STD ACO,a(RO)+ -TEST INSTRUCTION. 


SEQ 0034 
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wi 
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003766 
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012737 
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T MODE 3 T 


MACY11 s need 
T6 SEQ 0035 


004032 CMP RO. ATTTA2+2 :SEE IF RO WAS INCREMENTED CORRECTLY. 
BNE TTT15 “BRANCH IF INCORRECT. 
004014 MOV #TTTBFO,R1 “CHECK THE OUTPUT DATA BUFFER. 
004040 MOV ATTTTP1 .R2 
000004 MOV #4,R3 , 
TTT3: CMP (R1)+, (R2)+ 
BNE TTT20 sBRANCH IF NOT CORRECT. 
S08 R3,TIT3 
BR TT TDONE 
-THIS IS THHE OUTPUT DATA BUFFER: 
TTTBFO: “ 
-1 
=} 
-1 
TTTA1: <=1 
TTTA2: TTTBFO 
TTTAS: 7 
-1 
TTTIP1: 101213 
141516 
1727 
37475 
: TRAP THROUGH VECTOR 4 TO HERE. 
TTT10: MOV (SP) .R :SEE IF THE TRAP ADDRESS IS THAT OF THE TEST INSTRUCTION 
003762 R2,.ATTT2+2 
BEQ TTT11 :BRANCH IF YES. 
003764 CMP R2,ATTT2+4 
BEQ TTT11 :BRANCH IF YES. 
036166 JMP @4#CPSPUR “OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 
:REPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
001236 TTT11: MOV aS TMP2 
CMP (SP)+, (SP) + 
1$: ERROR 1 :BET FDST X ODD ADR 
BR TTTDONE 
:REPORT RO INCORRECT: 
001242 TTT15: V RO, aSTMP4 
004032 001240 MOV ATTTA2+2 ,a4$TMP3 
1$: ERROR 1 :RO NOT INCREMENT PROPERLY 
BR TTTDONE 
:REPORT INCORRECT OUTPUT DATA: 
004014 001240 TIT20: MOV ATTTBFO, a#$TMP3 
004040 001242 MOV ATTTTP1 ,aaSTMP4 
1$ ERROR 1 :BAD DATA 


“RSE TUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
= THE DESIRE TO CHANGE THE 


C SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 


— 


ee a ee 
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004264 
177777 
000013 
004264 
000200 
004310 
004320 
000006 
004300 
004276 


004264 
004370 
000004 


004232 
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000004 
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FDST MODE 3 TEST 


; THE USER TYPED CONTROL G?). 


5 RRA AAAAEAEAAARAEAAAEAAREARAAAARARAAARAAEARAERRKAAAAAAAAAARAAHAARAEAEE 


FDST MODE 5 TEST - 


-*TEST 7 


58 
s*THIS IS A 


TEST OF FDST MODE 5 USING STD. 


* 
* 
SS RREAAAAEAERAAEAAAEAAARAEEEAEAAAAENAAAAKAARAEAEAAARARAAAEHRAREARAEREARREK SE 


TST7 
UUU1: 


1$: 


sTHIS IS THE OUTPUT DATA BUFFER 
UUUBFO: = 


UUUTP1: 


:1F A TRAP TO 4 OCCURS COME HERE. 
UUU10: MOV 2 ;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


;BRANCH IF YES. 


SCOPE 


031323 


CMP 
BEQ 


oe 


(RO) 


2RO 
ACO, a-(RO) 
RO ,AUUUA2=2 


UUUT5 


AMUUUBFO,R1 
MUUUTP' .R2 
#4, 

(R1)+, (R2)+ 
UUUZ0 
R3,UUU3 
UUUDONE 


:SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE OUTPUT DATA BUFFER. 


, 
:ENTER DOUBLE FLOATING MODE. 
:SET UP ACO. 

mio. @#ERRVECT :GET READY FOR ANY TRAPS TO 4. 

UUU2, aS TMP2 


:SET UP THE DESTINATION ADDRESS. 
TEST INSTRUCTION. 
WAS RO DECRIMENTED PROPERLY? 
“ BRANCH IF RO IS INCORRECT. 
sWAS THE DATA OUTPUT CORRECTLY? 


7BRANCH IF DATA IS INCORRECT. 


SEQ 0036 
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REE FEE 
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SEee 
ES 


FFRES 


010237 
022626 
104001 
000416 
010037 
012737 
104001 
000407 
012737 
012737 
104001 


104413 
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001236 
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;REPORT 
UUUT1: 


3 
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FDST MODE 5 T 
CMP R2, “+ rain 
EQ YUU 1 :BRANCH IF YES. 
@FCPSPUR “OTHERWISE REPORT A SPURIOUS TRAP TO 4. 
FAILURE OF FDST T RESULTED: IN AN ODD ADDRESS TRAP TO 4. 
CMP (SP)+, (sPo+ 
E 1 :BET FDST X ODD ADR 
UUUDONE 
RO INCORRECT. 
RO, a¥STMP4 | 
mov HUUUA2+2 , BAS TMP 
ERROR :RO NOT INCREMENT PROPERLY 
BR UUUDONE 
BAD DATA 
MOV MUUUBF 0, a $TMP4 
MOV HUUUTP) . aA STMP3 
ERROR 1 :BAD DATA 
“RSETUP :GO INITIALIZE THE FPS AND STACK: AND 


;SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 

: THE USER TYPED CONTROL G?). 


FL AERA EKEEEREKREREEAERKEKEKEEKKEAEKEEERERREREREKEEEREREEEREEEEKEEE 


:*TEST 10 
‘ STHIS IS A TEST OF FDST MODE 6, INDEX MODE, USING STD. 
;* 


IEEE IGE IESE ISS ISO HEHE SOI EEE SUES EE Tor Er erin rtts 


TST10: 
VVV1: 


1$: 


VVWV2: 


SCOPE 


FDST MODE 6, INDEX MODE, TEST 


:SET UP THE LOOP ON ERROR ADDRESS. 


#200, RO “ENTER DOUBLE FLOATING MODE. 
#VVVBFO,R1 :SET UP THE OUT PUT DATA BUFFER. 
#~1,RO 
#4 .R2 
Rois 
#VVV10.@#ERRVECT :SET UP VECTOR 4 INCASE OF ERROR. 
AVVVTPT RO :SET UP ACO. 

(RO) ACO 

AVVV2,, aA#STMP2 
#VVVBFO-5701, -RO :SET UP THE DESTINATION ADDRESS. 
4065701 (RO) : TEST INSTRUCTION. 

RO. #YWBFO-5701 :SEE IF RO WAS MODIFIED. 

v15 “BRANCH IF INCORRECT. 
PVVVBFO, R2 “WAS THE OUTPUT DATA CORRECT. 


+ a “gl R35 


od 


SEQ 0037 


: 
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Sj 
nm 
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004534 


00124 


0 


004544 001242 


000200 
004776 
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T MODE 6, INDEX MODE, TEST 


1$: CMP (R2)+,(R3)+ 
BNE vvv20 ;BRANCH IF INCORRECT DATA. 
S08 R4,1$ 
BR VVVDONE 

VVVBFO: "7 
j 

VVVTP1: 30313 
23334 
35363 
74041 

oe HERE AFTER A TRAP THROUGH VECTOR 4. 

VV10: MOV :SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 

CMP R2, AVVV2+2 
BEQ vvwv11 ;BRANCH IF YES. 
CMP nes ” si 


;BRANCH IF YES. 
MP aH PSPUR ;OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
REPORT — RD. 4 ue RESULTED IN AN ODD ADDRESS TRAP TO 4. 


VVV11: 
CMP (SP)+, (SP) + 
1$: ERROR 1 :FDST FORK X ODD ADD 
BR VVVDONE 
sREPORT RO MODIFIED. 
VVV15: MOV RO, a4S TMP 
suderO S701 aseT3 
1$: ERROR ;RO MODIFIED! 
BR VVVDONE 
sREPORT INCORRECT DATA. 
VVV29: MOV AVVVBFO,avSTMP3S 
MOV AVVVTP1 * a4STMPL 
1$: ERROR 1 ;BAD DATA 
VVVDONE : 
RSETUP :;GO INITIALIZE THE FPS AND STACK: AND 
:$ IF THE USER HAS EXPRESSED 
+ THE DESIRE TO CHANGE THE SOF TWARE 
sVIRTUAL CONSOLE SWITCH REGISTER CHAS 
: THE USER TYPED CONTROL G?). 
SARA KHEEREREEREREKEEREKRAEEREEEAEREREARKEAEERAEREEERAEEKEEEREREEE 
;#TEST 11 FDST MODE 7, INDEX DEFERRED MODE, TEST 
:*THIS 1S A TEST OF FDST MODE 7, INDEX DEFERRED MODE, USING STD. 
_seusnednslénkaineencncvebendendeeseadbedennenectrensenneeqeecs 
TST11: SCOPE 
WWW : 
LPE ;SET UP THE LOOP ON ERROR ADDRESS. 
t BePs ae a “ENTER DOUBLE FLOATING MODE. 
MOV HWWWBFO,R1 :SET UP THE OUTPUT DATA BUFFER. 


SEQ 0038 


oe KEF11~A DIAG PART 


JKDDB.P11 


77 


SSeetReKSeeESIS 


SEESERERER SEREREE 
SREP E NET SNES 


RR 


005000 


177075 001240 
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012700 177777 
B14nos 000004 
010021 
049939 
01 005026 
012700 005006 
172410 
SE LE LA 004740 
012700 177115 
012701 000001 

12737 004776 
174070 005701 
020027 177115 
001044 
012702 004776 
012703 005006 
012704 
022223 
001043 
077403 
000450 
177777 
17777 
177777 
177777 
041424 
034445 
046475 
051525 
177777 

77777 
177777 
177777 
011602 
020227 004742 
001405 
020227 004744 
001402 
000137 036134 
010237 001236 
022626 
104001 
000416 
010037 001242 
012737 
104001 
000407 
012737 


;REPOR 
004776 001240 WwWw20: 


MACY17 30A(1052) 
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000004 


001236 


005016 
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FDST MODE 7, INDEX DEFERRED MODE, TEST SEQ 0039 
MOV #~1,RO 
MOV #4 ,R2 
1$: MOV RO. (R1)+ 
SOB R2.1$ 
MOV #10, Q#ERRVECT :SET UP FOR TRAPS TO 4. 
MOV #WITPT RO :SET UP ACO. 
LDD (RO) ACO. 
MOV ,aASTMP2 
MOV WANE T5701 (RO :SET UP THE DESTINATION ADDRESS. 
MOV #1,R1 
MOV 1 
Www2: STD ACO,a@5701(RO)  ;TEST INSTRUCTION. 
CMP RO, AWWWBF1~5701 :IS RO CORRECT? 
BNE WW 5 “BRANCH IF INCORRECT. 
MOV pl a R2 “WAS THE DATA OUTPUT CORRECTLY? 
MOV MbdaTPT , R3 
MOV 
1$: CMP (RB) 4, (R3)* 
BNE WW 20 :BRANCH IF DATA IS INCORRECT. 
S0B R4.1$ 
BR WwWDONE 
WWWBF O : I 
: 
WWWTP1: 41424 
34445 
46475 
051525 
WWWBF 1: 1 


> TRAP THROUGH 4 TO HERE. 
: MOV SP) ,R2 ;SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
CMP AW? +2 
BEQ 11 ;BRANCH IF YES. 
CMP R2 ,AWWW2+4 
BEQ 11 F YES. 
JMP a4FPSPUR - OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
REPORT FAILURE OF FDST FORK RESULTED IN AN ODD ADDRESS TRAP TO 4. 
11: MOV R2, TMP2 
CMP (SP) +, (SP) + 
1$: ERROR 1 :FDST FORK X ODD ADD 
BR WwWDONE 
REPORT RO MODIFIED. 
15: MOV RO, aySTMP 
MOV AKO O-S701, a4STMP3 
1$: _ 1 :RO MODIFIED! 


T DATA INCORRECT 
MOV MWWWBF O , aS TMP 3 
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12-MAR~80 FDST MODE 7, INDEX DEFERRED MODE, TEST 
012737 005006 001242 MOV HWWITP 1, aASTMPS 
104001 1$: ERROR 1 7BAD DATA 
104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS ene 
he DESIRE TO CHANGE THE SOF TWARE 
VIR TUAL CONSOLE SWITCH o_o (HAS 
-THE USER TYPED CONTROL G?) 
FERRARA ER AREER EKRARREAEREEAAEAREKKERRERARKEEHRKERERAREKREEREE 
:#TEST 12 STCFD TEST 
isTHIS IS A TEST OF THE STCFD INSTRUCTION. 
ES Ie IATA Seca I, Le OO Oe a 
000004 TST12: SCOPE 
;AC=0 
XXX1: 
104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
004767 000330 JSR PC,STCFDS 
000000 1$: 0 :AC 
000000 0 
000000 0 
000000 0 
000000 2$: 0 RES 
000000 0 
000000 0 
000000 0 
000000 3$: 0 ; ERROR RES. 
000000 0 
177777 -1 
177777 =] 
047000 4$: 47000 :FPS BEFORE EXECUTION. 
047004 47004 :FPS AFTER EXECUTION. 
177777 -1 >FE 
147004 147004 > ERROR FPS. 
104001 S$: ERROR 1 :FDFL<---FDFLXST 767 
000401 BR 6$ 
104001 “ ERROR 1 :BUT EZBT X STS60 TO 067 INTO 261 
XXM2: 
104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
004767 000254 JSR PC, STCFDS 
017203 1$: 17203 sAC 
142536 142536 
7506 47506 
172031 172031 
017203 2$: 17203 :RES 
142536 sone 
0 
017203 3$: 17203 sERROR RES. 
142536 142536 
047506 47506 


SEu 0040 | 


C 4 
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CJKDDB.P11 12-MAR-80 07:22 T12 D TEST SEQ 0041 
840 005 172031 172031 
841 005 ors 4$: 40000 :FPS BEFORE EXECUTION. 
a8 005 40000 :FPS AFTER EXECUTION. 
843 005240 177777 ~4 
844 005242 177777 -1 ERROR FPS. 
845 005244 104001 5$: ERROR 1 °x11(1, 0)<=---0 x ST766 
846 005246 01 6$ 
847 005250 104001 ERROR 1 
are 005252 6$: 
850 093328 XXX3: 
(1) Ones? 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
851 54 004767 000200 JSR PC. STCFDS 
852 005 050717 1$: 50717 :AC 
853 005 027374 27374 
854 075767 75767 
855 005266 077071 77071 
856 70 050717 2$: 50717 :RES 
Bee 005272 027374 27374 


0 
000000 3$: . ERROR RES. 
0 


863 00 0 
864 005310 047000 4$: 47000 3FPS BEFORE EXECUTION. 
865 005312 047000 47000 sFPS AFTER EXECUTION. 
866 005314 177777 -1 : 
867 005316 174002 174002 ;ERROR FPS. 
868 005320 104001 5$: ERROR 1 sBUT OPIC X ST251 
869 005322 000401 BR 6$ 
870 005324 104001 ERROR 1 ;BUT EZBT X ST421 
fal 005326 6$: 
873 005326 XXX4: 
(1) 005326 104414 LPERR :;SET UP THE LOOP ON ERROR ADDRESS. 
874 005330 004767 000124 JSR PC, STCFDS 
875 005334 020212 1$: 20212 sAC 
876 005336 032425 32425 
005340 026272 26272 
878 005342 002123 02123 
879 005344 020212 2$: 20212 :RES 
880 5 032425 32425 
881 0053 
882 005352 000000 0 
883 005354 020212 3$: 20212 ERROR RES. 
884 005356 032425 32425 
885 005 1 
886 005362 000000 0 
887 005364 040000 4$: 40000 >FPS BEFORE EXECUTION. 
888 005366 40000 “FPS AFTER EXECUTION. 
889 005370 177777 -1 “FEC 
890 005372 177777 ~1 *ERROR FPS. 
891 005374 104001 5$: _ 1 :BUT FD IN ROUND X ST113 
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STCFD T 
6$: 
XXX5: 
LPERR :SET UP THe LOOP ON ERROR ADDRESS. 
JSR PC,STCFDS 
1$: 121314 :AC 
151617 
101112 
131415 
2$: 121314 RES 
151617 
; 
3$: 21314 :ERROR RES. 
151617 
c 
4$: 40000 ;FPS BEFORE EXECUTION. 
he leg FEL AFTER EXECUTION. 
-1 = ERROR FPS. 
5$ — Le ;BUT ENST X ST567 OR BAD SIGN ST460 
ERROR 1 
6$: BR XXXDONE 
: THIS SUBROUTINE, STCFDS, IS USED TO SET UP THE OPERANDS, EXECUTE 
=THE STCFD INSTRUCTION AND CHECK THE RESULTS. A CALL 
:TO IT IS MADE THUS: 
; JSR PC ,@4STCFDS 
; ACARG: .WORD X,X,X,X ;AC OPERAND 
RES: -WORD X,X,X,X sEXPECTED RESULT 
3 ERRES: .WORD X,X,X,X ;ERROR RESULT 
; FPSB: -WORD xX sFPS BEFORE EXECUTION 
FPSA: ~WORD X :FPS AFTER EXECUTION 
FEC: -WORD xX sEXPECTED FEC 
: ERFPS: .WORD xX : FPS. 
: ERR1: ERROR 1 :DATA ERROR. 
j BR CONT 
: ERR2: ERROR 1 sFPS ERROR. 
: CONT: sRETURN ADDRESS 


® THE OPERANDS ARE SET UP (USING eD. AS THE ACCUMULATOR). THEN 
THE RESULT IS CORRECT THEN THE FPS IS 
URNS CONTROL 


TCFDS 
HIS MATCHES THEN STCFDS WILL RETURN 
=TO THE ERROR CALL AT ERR2 oTHeRwise STCFDS ITSELF 
*REPORTS THIS Cat URE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
“STCFD IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
“ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 


SEQ 0042 
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SEEaS SPER ERS SIS IRI 83 


_—— 
™ 
S 


016137 
010102 


016102 
020204 
001025 
005702 
100003 
026105 


001027 
000161 


010102 
062702 
012703 


012700 
022225 
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000200 


177777 
005742 
000004 


000030 


005534 
005742 


000032 


000036 
000046 


000020 
005742 
000004 
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;WILL TRANSFER CONTROL TO THE ERROR 


E 4 
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STCFD TEST 


7 THE RESULT WAS ANTICIPATED CORRECTLY TO BE i THEN STCFDS 


CALL_AT ERR1. OTHERWISE THE 


sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCEDS WILL 
;REPORT THE FAILURE AFTER WHICH 


STCFDS: 


1$: 


2$: 


3$: 


4$: 
sRESULT 
15$: 


16$: 


MOV (SP)+,R1 
MOV #200,R0 
LDFPS RO 
MOV R1.RO 
LDD (RO) ACO 
MOV -1,R0 
MOV #STCFT.R2 
MOV j 
MOV RO, (R2)+ 
SOB : 
MOV 30(R1).RO 
LDFPS RO 
V #2$ ,aASTMP2 
V #STCFT.RO 
STCFD ACO, (RO) 
STFPS RG 
srsy = aS 
MOV R1,R2 
MOV R2. aSTMP3 
ADD #10,R2 
MOV R2, a4$STMPS 
MOV #STCFT ,a#STMP4 
MOV R4, aASTMP7 
MOV 32(R1) ,a4STMP10 
MOV R1.R2 
ADD #10,R2 
MOV #STCFT.R3 
MOV #4 R 
CMP (R2)+, (R3)+ 
BNE 15$ 
S08 RO,3$ 
MOV 32(R1) .R2 
CMP R2,R4 
BNE 20$ 
TST R2 
BPL 4$ 
CMP 36(R1).R5 
BNE 
JMP 46(R1) 
INCORRECT: 
MOV R1 
ADD #20,R2 
MOV #STCFT.R3 
MOV #4 OR 
CMP (R2) +, (R3)+ 


CONTROL WILL BE PASSED TO CONT. 
UP THE POINTER TO THE OPERANDS. 
MODE . 


PICK 
ENTER DOUBLE FLOATING 


;LOAD ACO. 
sFILL THE OUTPUT BUFFER WITH -1'°S. 


;LOAD THE FPS. 


;SET UP THE DESTINATION ADDRESS. 
; TEST INSTRUCTION. 


:GET LL AS 5 
:GET THE FEC. 
sSAVE THE DATA IN CASE OF ERROR. 


: CHECK THE RESULT. 


;BRANCH IF INCORRECT. 


;I1S THE FPS CORRECT? 

7BRANCH IF FPS INCORRECT. 

;IF EXPECTED FPS IS NEGATIVE THEN 
:GO AHEAD AND CHECK THE FEC. 


s;BRANCH IF FEC IS INCORRECT. 
RETURN. 


;SEE IF ERROR WAS ANTICIPATED. 


SEQ 0045 
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STCFD TEST 
BNE 17$ ;BRANCH IF NOT ANTICIPATED. 
re RO,16$ 


40(R1) ;IF ERROR WAS ANTICIPATE: RETURN. 
ZOTHERWISE. REPORT RESULT INCORRECT HERE . 


18$: ERROR 1 :DATA ERROR 
BR 4$ 


-FPS INCORRECT: 

20S: CMP R4,34(R1) ;WAS THE ERROR ANTICIPATED. 
BNE 21$ CH IF NOT ANTICIPATED. 

JMP 44(R1) “IF IT WAS ANTICIPATED RETURN. 


Rasy FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 


22$: ERROR 1 sFPS xX 
BR 4$ 

-REPORT FEC INCORRECT 

25$: MOV 36(R1), aySTMP12 
MOV a av$ TMP 

26$: ERROR sFEC &X 
BR is 

SICFT: <1.<1.<1,+1 

XXXDONE : 


RSE TUP + GO INITIALIZE THE FPS AND STACK; AND 
XPRE SSED 


E 
:THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SAREE RRR RARER EAE REE EERE REAR RE AE REREEE EERE RARER EERE RE 
:*TEST 13 STCDF TEST 

te 

:*THIS IS A TEST OF THE STCDF INSTRUCTION. 
-* 


'WeheteAASAALAASASASLAASLAESAARSAARASASASRASAS SSAA SRR RR RARE SAAS ASA ASAD SESS SS | 


TST13: SCOPE 
zAC=0 
YYY1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, ,STCDFS 
1$: 0 zAC 
0 
0 
0 
2$: 0 RES 
0 
; 
3$: : sERROR RES. 
0 
0 


SEQ 0044 
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17 12-MAR-80 07:22 ™13 STCDF TEST 
006014 047 4$: 47200 3FPS BEFORE EXECUTION. 
006016 067 47204 sFPS AFTER EXECUTION. 
0060 177777 -1 FEC 

2 177777 -1 : ERROR FPS. 

4 1046001 5$: ERROR 1 sFDFL<---FDFL XxX ST767 
0060 000401 6$ 
0060 104001 ERROR 1 :FPS INCORRECT. 
0060 6$: 
006032 YYY2: 
0060 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
0060 004767 000254 JSR PC,STCDFS 
006040 067574 1$: 67574 ACO 
006042 073727 73727 

170777 170777 

006046 067574 
006050 067574 2$: 67574 ;RES 
006052 073730 73730 
006054 177777 -1 
006056 177777 -1 
006060 067574 3$: 67574 zs ERROR RES. 
006062 073727 73727 
006064 177777 -1 
006066 177777 -1 
006070 040200 4$: 40200 ;FPS BEFORE EXECUTION. 

72 040200 40200 sFPS AFTER EXECUTION. 
006074 177777 -1 FEC 
006076 177777 -1 sERROR FPS. 
006100 104001 5$: ERROR 1 sEITHER ROUND FAILED OR WENT TO 766 X1(1,0)<---0 INTO 76 
006102 000401 BR 6$ 
006104 104001 ERROR 1 
006106 6$: 
006106 vYY3: 
006106 104414 LPERR :;SET UP THE LOOP ON ERROR ADDRESS. 
006110 004767 000200 JSR PC,STCDFS 
006114 077777 1$: 77777 3;ACO 
006116 177777 -1 
006120 100000 
006122 0 
006124 000000 2s: 0 RES 
006126 0 
006130 177777 -1 
006132 177777 -1 
006134 077777 3$: 77777 sERROR RES. 
006136 177777 -1 
006140 177777 | 
006142 177777 -1 
006144 040200 4$: 40200 sFPS BEFORE EXECUTION. 
006146 040206 40206 :FPS AFTER EXECUTION. 
006150 177777 - FEC 
006152 040204 40204 sERROR FPS. 
006154 104001 5$: ERROR 1 
006156 000401 BR 6$ 
006160 104001 ERROR 1 :BUT EZBT X ST421 TO 062 INTO 262 
006162 6$: 


H 4 
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CJKDDB.P11 12=MAR-80 07:22 STCDF TEST SEQ 0046 
1107 : 
1108 006162 vYY4: 
(1) 0061 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
1109 006164 004767 000124 JSR PC, STCDFS 
1110 006170 077777 1$: 77777 :ACO 
1111 006172 177777 -1 
1142 006174 100000 100000 
1113 006176 000000 0 
1114 000000 2$: 0 sRES 
1115 2 0 
119 159959 | 
1118 $0e516 7 3$: 77777 :ERROR RES. 
1119 006212 177777 -1 
1120 006214 177777 -1 
1121 006216 177777 -1 
1128 0062 040200 4$: 40200 :FPS BEFORE EXECUTION. 
1123 006222 040206 40206 sFPS AFTER EXECUTION. 
1124 006224 177777 - ZFEC 
1125 26 140206 140206 :ERROR FPS. 
1126 30 104001 5$: ERROR 1 
1127 006232 000401 BR 6$ 
1128 006234 104001 ERROR 1 sBUT FIV ST262 TO 123 INTO 103 
1129 006236 6$: 
1130 : 
1131 006236 yyy5: 
(1) 006236 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1132 006240 004767 000050 JSR PC, STCDFS 
1133 006244 177777 1$: 177777 :ACO 
1134 006246 177777 -1 
1135 006250 1 100000 
1136 006252 0 
1137 006254 100000 2$: 100000 sRES 
1138 006256 0 
1139 006260 177777 -1 
1140 006262 177777 -1 
1141 006264 3$: 0 zERROR RES. 
1142 006266 0 
1143 006270 177777 -4 
1144 006272 177777 -1 
1145 006274 047200 4$: 47200 FPS BEFORE EXECUTION. 
1146 006276 147216 147216 -FPS AFTER EXECUTION. 
1147 006300 000010 10 :F 
1148 006302 047206 47206 ERROR FPS. 
1149 006304 104001 S$: ERROR 1 sBUT FIV ST262 FAIL TO 103 INT 123 
1150 006306 000401 BR 6$ 
1151 006310 104001 ERROR 1 BUT FLAG ST 147 X TO ST 361 INTO 365 
1152 006312 000535 6$: BR YYYDONE 
1153 : THIS SUBROUTINE, STCDFS, IS USED TO SET UP THE OPERANDS, EXECUTE 
1154 :THE STCDF INSTRUCTION AND CHECK THE RESULTS. A CALL 
a :TO IT IS MADE THUS: 
1157 : JSR PC a#STCFDS 
1158 : ACARG: .WORD X,X,X,X :AC OPERAND 
1159 RES: i XXX XM -EXPECTED RESULT 
1160 ERRES: .WORD X,X,X,X -FRROR RESULT 
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1161 : FPSB: . WORD x sFPS BEFORE EXECUTION 
1108 : FPSA: ~ WORD x -FPS AFTER EXECUTION 
116 : FEC: «WORD xX : EXPEC TED FEC 

1164 : ERFPS . WORD x ROR FPS. 

1165 : RR1 ERROR 1 :DATA erhon. 

1166 ; BR CONT 

1167 : ERR2: ERROR 1 :FPS ERROR. 

1168 : CONT : :RETURN ADDRESS 
1170 THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

1171 “THE STCFD INSTRUCTION IS EXECUTED. 

1178 ; THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
117 “COMPARED WITH FPSA IF THIS TOO IS CORRECT STCFDS RETURNS CONTROL 
1174 >TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STCFDS 

1175 : COMPARE IT TO Ta FPS. IF THIS MATCHES THEN STCFDS WILL RETURN 
1176 >TO THE ERROR CALL AT ERR2, OTHERWISE STCFDS ITSELF 

1177 sREPORTS THIS coe ae THEN RETURNS TO CONT. IF THE RESULT OF THE 
1178 =STCFD IS RESULT IS COMPARED WITH THE 
1179 ANTICIPATED PAILING DATA PATTERN, ERRES. IF THE F 

1180 : WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STCFDS 

1181 sWILL TRANSFER CON E CAL T ERR T ISE THE 
1182 s;RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCFDS WILL 

1183 “REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
1185 006314 012601 STCDFS: MOV (SP)+,R1 sPICK UP THE POINTER TO THE OPERANDS. 
1186 006316 012700 000200 MOV #200,RO “ENTER DOUBLE FLOATING MODE. 

1187 006322 170100 LDFPS RO 

1188 006324 010100 MOV R1,RO :LOAD ACO. 

1189 006326 172410 LDD (RO) ,ACO 

1190 006330 012700 177777 MOV #-1,R0 sFILL THE OUTPUT BUFFER WITH -1°S. 
1191 34 012702 006576 MOV ASTCDT.R2 

1192 006340 012703 000004 MOV #6, 

1193 4 010022 1$: MOV RO, (R2)+ 

1194 006346 077302 SOB ? 

1195 006350 016100 000030 MOV 30(R1) RO :LOAD THE FPS. 

1196 006354 170100 LDFPS RO 

1197 006356 012737 006370 001236 MOV #2, aWSTMP2 

1198 006364 012700 006576 MOV #STCDT RO :SET UP THE DESTINATION ADDRESS. 
1199 006370 176010 2$: STCDF ACO, (RO) “TEST INSTRUCTION. 

1201 006372 170204 STFPS RG :GET THE FPS. 

1202 006374 170305 STST — RS “GET THE FEC. 

1203 006376 010102 MOV R1,R2 ‘SAVE THE DATA IN CASE OF ERROR. 
1204 006400 010237 001240 MOV R2. aASTMP3 

1205 006404 062 0000 ADD 10, 

1206 006410 010237 001244 MOV R2,aNSTMPS 

1207 006414 012737 006576 001242 MOV #STCDT ,aaSTMP4 

1208 006422 010437 00125 MOV R4,a4STMP 

1209 006426 016137 000032 001252 MOV 32(R1) ,awSTMP10 

1211 006434 010102 MOV R1,R2 : CHECK THE RESULT. 

1212 006436 062702 000010 ADD #10,R2 

1213 006442 012703 006576 MOV #STCDT.R3 

1214 006446 012700 000004 MOV ry 

1215 006452 022223 3$: CMP (R2)+, (R3)+ 

1216 006454 001014 BNE 15$ :BRANCH IF INCORRECT. 
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STCDF 
SOB RO, 3$ 
MOV 32(R1) ,.R2 | 
CMP R2,R4 :1S THE FPS CORRECT? 
BNE 20$ “BRANCH IF FPS INCORRECT. 
TST R2 -IF EXPECTED FPS IS NEGATIVE, THEN 
BPL 4$ =GO AHEAD AND CHECK THE FEC. 
CMP 34(R1).R5 
BNE 25$ :BRANCH IF FEC IS INCORRECT. 
4$: IMP 46(R1) “RETURN. 
:RESULT INCORRECT: 
i5$: | MOV R1.R2 :SEE IF ERROR WAS ANTICIPATED. 
ADD #20,R2 
MOV #STCDT.R3 
MOV #4.R 
16$: CMP (R2)+, (R3)+ 
BNE 17$ :BRANCH IF NOT ANTICIPATED. 
$08 RO, 168 


40(R1) 3 IF ERROR WAS ANTICIPATED RETURN. 
;OTHERWISE. REPORT RESULT INCORRECT HERE. 


18$: ERROR 1 :DATA ERROR 
BR 4$ 


-FPS INCORRECT: 
208: CMP R4,34(R1) ERROR ANTICIPATED. 
BNE 1 TED. 


;WAS THE 
;BRANCH IF NOT ANTICIPA 


JMP 44(R1) -IF IT WAS ANTICIPATED RETURN. 
5 THE FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 
22$: ERROR 1 sFPS xX 
BR 4$ 
“REPORT FEC INCORRECT: 
25$: MOV 36(R1). ans TMP 12 
MOV RS. aySTMP 
26$: ERROR sFEC X 
BR is 
STCDT: <=-1,-1,-1,-1 
YYYDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER EXPRESSED 
: THE DESIRE TO CHANGE T 


SOF TWARE 
:VIRTUAL CONSOLE SWITCH oo (HAS 
; THE USER TYPED CONTROL G?) 


PITTI ITITITILI LILI T TLL LIT LLL LLL 


“RTEST 14 STCFD WITH ILLEGAL ACCUMULATOR TEST 
<* 

:*THIS TEST STCFD WITH ILLEGAL AC 6. 

> 


'WeeROASAAASRESEAAASLALARSE ESAS E LASSER RRA SAR SRR RRR RR RRS RR RAR ARERR ASSES SO 


TST14: SCOPE 


SEQ 0048 


CJKDDB KEF11-A DIAG PART 
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1266 ive Of 

(1) 00661 104414 

iE e4 006614 012 040000 
1 1701 
1 44 2 012737 006630 
1 0066 17 

1271 
1$ 170 
1273 0066 170305 
1274 006656 020427 140000 
1275 006642 001004 
1s%8 006644 022705 000002 
1278 006659 001010 
1380 006652 15 
1281 
ieee 006654 010437 001242 
1285 006660 012737 140000 
1284 006666 104001 
1285 006670 000406 
1388 
1288 006672 010537 001242 
1289 006676 012737 000002 
1290 006704 104001 
1291 006706 

(1) 0067 104413 

(1) 

(1) 

(1) 

(1) 
1598 

(3) 

(4) 

(4) 

(4) 

(3) 

(2) 006710 000004 
1299 006712 

(1) 006712 104414 
1300 006714 012700 007100 
1301 006 012701 007070 
1302 006724 012702 000004 
1303 006 012021 
1304 006732 077202 
1305 006 012700 007070 
1306 006740 012701 000213 
1307 006744 170101 
1308 0067 012737 006754 
10 006754 170410 
1311 006756 170205 
13I¢ 006760 012702 000004 
1313 006764 012701 007070 
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001236 


001240 


001240 
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STCFD WITH ILLEGAL ACCUMULATOR TEST 


:SET UP THE LOOP ON ERROR ADDRESS. 
:DISSABLE INTERRUPTS. 


:THIS TEST INSTRUCTION SHOULD CAUSE AN ERROR. 


:GET FPS. 

:GET FEC. 

71S FPS CORRECT? 

;BRANCH IF INCORRECT FPS. 
71S FEC CORRECT? 


;BRANCH IF INCORRECT. 

OF ILLEGAL ACCUMULATOR. 

;BUT FDST ST767 X TO 567 INTO 577 

OF ILLEGAL ACCUMULATOR. 

sFEC<=-=2 ST577 xX 

:GO INITIALIZE THE FPS AND STACK; AND 
: SEE THE USER HAS EXPRESSED 
See DESIRE TO CHANGE T 


HE SOF TWARE 
RTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


J ERRAERAEREREEEERREAEEAEEEAEERERRERAEORREAEKREKERKREAKEEKREREEREREEEHERE 


7221: 
LPERR 
MOV #40000,RO 
LDFPS R 
MOV #7772 ,a#$STMP2 
27222: STCFD  ACO.AC6 
STFPS RG 
STST RS 
CMP R4.4140000 
BNE 72210 
CMP #2,R5 
BNE 22215 
BR 222DONE 
:REPORT FPS INCORRECT AFTER USE 
227210: MOV R4, av$T 
MOV #140000, a#$TMP3 
ERROR 1 
BR 7ZZDONE 
sREPORT FEC INCORRECT AFTER USE 
272215: MOV RS, aASTMPS 
MOV #2. aS TMPS 
$: ERROR 
ZZZDONE : 
RSETUP 
: TEST 15 CLRD TEST 


jsTHIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 


STN CA EE A TPE SE A DNR a 


+ST15: 
AAB1: 


1$: 


2$: 


SCOPE 


HAABTP1 RO 
#AABBFO,R1 


a 
(RO) +, (R1)+ 


#AABBFO.R1 


;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP QUTPUT BUFFER 


;SET UP DESTINATION OPERAND ADDRESS. 
SET UP FPS. 
: TEST INSTRUCTION. 


:GET FPS. 
:SEE IF RESULT CLEAR, 0. 


SEQ 0049 
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— —? 2 


WNAAIGS 
— at ed 


OONAUS 


SISNET SENS 


BBA S ESSERE SS See 


ec ee ee ed cee ee ed ee ed dd ed ed ed ed 
WANNA 
MVM 


WA RAA em WAI 
4 maapenmeete oy 
Ww 


ee 
GEASISSS 


~ 
LA 


007122 


012737 
012737 
104001 
000432 


F 
056770 


000204 
007070 


007070 
007110 


001242 
000204 


001242 
007070 
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CLRD TEST 


3$: TST (R1)+ 
BNE AAB2 :BRANCH IF RESULT INCORRECT, NOT 0. 
SOB R2,3$ | 
CMP #204 .R5 :SEE IF FPS IS CORRECT. 
BNE “BRANCH IF INCORRECT. 
CMP RO, AAABBFO “SEE IF RO IS CORRECT. 
BNE AABS “BRANCH IF RO IS INCORRECT. 
BR AABDONE 
:RESULT NOT 0, REPORT ERROR. 
AAB2: MOV #AABBF 0, a#$TMP3 
MOV #AABTP2 , AAS TMPS 
1$: ERROR 1 :BAD DATA = 0 X 11#ZERO $T770 x 
BR AABDONE 
:REPORT FPS INCORRECT: 
AAB3: MOV R4, aASTMPS 
MOV #204, a#STMP3 
1$: ERROR 1 :BAD FPS 
BR 
:REPORT RO INCORRECT. 
AAB4: MOV RO, a#STMPS 
MOV #AABBF 0, aA STMP3 
1$: ERROR 1 
BR AABDONE 
:THIS IS THE TEST DATA BUFFER, OUTPUT DATA BUFFER. 
AABBFO: 73475 
67707 
127347 
770 


56 
s;THIS IS THE DATA USED TO SET UP THE OUTPUT BUFFER. 
AABTP1: 73475 


67707 
127347 
56770 

:THIS IS THE EXPECTED DATA, RESULT: 

AABTP2: 0 
0 
0 
0 

ONE : 

RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 
7 THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


J LAA REEKREKEREREREEREEEEEEKEEKEKEREERAEAEREKEEERAERAE AERA EERRE EE 


Z*TEST 16 CLRD WITH ILLEGAL ACCUMULATOR TEST 
>t 

;*THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 

-* 


WORAAAESASZLAAAASZALLALSLALSLASAL ELSES ERE R ESR RRR RRA AREA ASRS A SARS SSS S| 


TST16: SCOPE 


SEQ 0050 
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00 
012737 
170707 
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140200 
000002 


001242 
140200 


001242 


000002 001240 


040200 


007242 001236 


140200 
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CCB2: 
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CLRD WITH ILLEGAL ACCUMULATOR TEST 


LPERR 
MOV #40200 ,RO 
LDFPS 

V #CCB2 ,a#STMP2 
CLRD AC7 
STFPS = =R&4 
STST R5 
CMP R4 4140200 
BNE CCB10 
CMP #2 ,R5 
BNE CCB15 
BR CBD 
T INCORRECT FPS: 
MOV R4,aASTMPS 
oy #140200 ,a#$TMP3 
BR CCBDONE 
INCORRECT FEC: 
MOV R5 .aASTMP4 
MOV #2 ,QASTMPS 
ERR 
RSETUP 


:SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE FPS, NO 


INTERRUPTS AND FD=1. 


:TEST INSTRUCTION. 


sGET FPS. 
:GET FEC. 


‘3° THE FPS CORRECT? 
s;BRANCH IF FPS IS INCORRECT. 
:1S THE FEC CORRECT? 

;BRANCH IF FEC IS INCORRECT. 


;BUT FDST ST 700X TO 607 INTO 677 


sFEC<---2 ST 677 X 


:GO INITIALIZE THE FPS AND STACK; AND 
EXPRESSED 


THE SOFTWARE 
° CONSOLE SWITCH REGISTER ‘(HAS 
‘THE "USER TYPED CONTROL G?). 


Wen ASAARSAASASLAALARSSAAASAAAAALAS ARAL SALE R ARAL ALARA RARER RASS SS 2 


=*TEST 17 


: *DEST FLOWS 
*WITH 


:eAC? 


MODE ZERO AND IL 


NEGF , 


LEGAL 


ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC?, 


;* 
:*THIS IS A TEST OF THE SPECIAL 
USING THE NEGD INST 


TEST 


MAS aeeeSe eset SSeS ASLASSSSAS EASES ARSR EASES AR ALARA AS SAAR AAAS ALES SSS | 


18117: 


VVB1 : 


VVB2: 


SCOPE 


LPERR 
MOV 
LDFPS 
MOV 
NEGD 


STFPS 
STST 


CMP 


epee’ Re 
A#VVB2 ,a#STMP2 
AC7 


R4 
R5 


#140200 ,R4 


;SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE FPS, FID=1 AND FD=1. 


;TEST INSTRUCTION. 


GET FPS. 
:GET FEC. 


;1S FPS CORRECT? 


SEQ 0051 


on 
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JKDDB.P11 12-MAR~80 07:22 117 NEGF, ABSF AND TSTF SOURCE MODE O WITH ILLEGAL AC7, TEST SEQ 0052 
1412 007254 001 BNE VVB10 s;BRANCH IF FPS_IS INCORRECT. 
1413 007256 2705 000002 CMP #2,R5 71S FEC CORRECT? 
1414 007262 1010 BNE VVB15 s;BRANCH IF FEC IS INCORRECT. 
WOh2 007264 000415 BR 
1417 ;REPORT INCORRECT FPS: 
1418 007266 012737 140200 001240 VVB10: MOV #140200 ,a#$TMP3 
1419 007274 010437 001242 MOV R4, aASTMP4 
Mp 00 104002 1$: ERROR 2 FPS BAD 
1253 007302 000406 BR VVBDONE 
1423 sREPORT FEC INCORRECT: 
1424 012737 000002 001240 VVB15: MOV #2, aASTMP3 
1425 007312 010537 001242 MOV R5 ,aASTMPS 
1°59 1$: ERROR 2 FEC BAD 
1428 007320 VVBDONE : 
(1) 007320 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) ;SEE IF THE USER HAS EXPRESSED 
(1) ;THE DESIRE TO CHANGE THE SOF iWARE 
(1) sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
1499 ; THE USER TYPED CONTROL G?). 
1437 5 LIRR ERE ERE RE ERE EKER EEEREEEERERREEEKEEEEEREREREEEEKEE 
7s :*TEST 20 NEGF, ABSF AND TSTF SOURCE MODE 0 TEST 
- 
(4) :*THIS IS A TEST THE NEGF, ABSF AND TSTF 
(4) :*SOURCE FLOWS. THE NEGD INSTRUCTION 
m4 :*IS USED TO TEST MODE 0 
- 
(3) Pettitt it iitiitittitittiiiiiiiiitiiiiiiiiiiiiiitii titi titties. 
10% 007322 000004 TST20: SCOPE 
1439 007324 DDB1: 
(1) 007324 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1440 007326 012700 000200 MOV #200,R0 ;SET FD MODE. 
1441 007332 170100 LDFPS 
1442 007334 012700 007476 MOV #DDBTP1 ,RO ;SET UP ACO. 
1443 007340 172410 LDD —- (RO) ,ACO SET ACO = 0 
1444 007342 5000 R RO ;CLEAR THE FPS. 
1445 007344 170100 LDFPS RO 
1446 007346 012700 007506 MOV ADDBTP2 ,RO ;LOAD ACO TO BE A FLOATING 0. 
1447 007352 172610 LDF (RO) ,ACO :SET ACO=ZERO 
1449 007354 012700 000201 MoV -#201.,RO SET FD MODE. 
1450 007360 170100 LDFPS 
103] 7362 012737 007370 001236 MOV A#DDB2 , aA#STMP2 
1688 007370 170700 DDB2: NEGD ACO ; TEST INSTRUCTION. 
1455 007372 170205 STFPS  RS5 ;GET FPS. 
1456 007374 012700 000200 MOV #200,RO :SET FD MODE. 
1457 eine 170100 LDFPS R 
1458 7402 012700 007516 MOV #DDBBF 0 ,RO ;GET THE RESULT OUT OF ACO. 
1459 007406 174010 STD ACO, (ROS 
1460 ;SEE IF THE RESULT IS CORRECT. 


CJKDDB KEF11-A DIAG PART 


CJKDDB .P11 12-MAR~80 07:22 
1461 007410 par tay 000004 
rs 7414 
146 7416 1005 
1464 0074 077103 
1465 007422 2705 000204 
1466 0074 1014 
1467 0074 
1468 
“Ss 
14 007432 012737 75 
1471 007440 012737 007526 
Vole 7446 012737 007516 
14 007454 104002 
1474 007456 000427 
1475 
1476 
1477 007460 012737 000204 
1478 7466 010537 001242 
1479 007472 00 
1480 007474 20 
181 
1088 007476 101112 
1484 75 131415 
1485 007502 161710 
1486 007504 111213 
1487 007506 000000 
1488 007510 000000 
1489 007512 000000 
ye 007514 000000 
1492 007516 177777 
1493 75 177777 
1494 007522 177777 
1495 007524 177777 
1496 007526 000000 
1497 007530 000000 
1498 007532 161710 
1499 7534 =111213 
1500 
1501 007536 

4} 007536 104413 
(1) 
(7) 
(1) 
1502 
1503 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 007540 000004 
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GF, ABSF AND TSTF SOURCE MODE 0 TEST 


MOV #4.R1 
1$: TST (RO) + 

BNE DDBS :BRANCH IF THE RESULT IS INCORRECT. 

S08 R1,1$ 


;I1S THE FPS CORRECT? 


CMP #204,R5 
DDB6 “BRANCH IF THE FPS IS INCORRECT. 


BNE 
BR DDBDONE 
sRESULT INCORRECT, tee FAILURE : 


DDBS: MOV #0DB , WS TMP sEXPECT DO 
MOV fD08P "a4$TMP3 : PREV FO IMPURE 
MOV DBBFO.avSTMPS : 
1$: ERROR 
BR DBDONE 
sREPORT FPS INCORRECT: 
DDB6: MOV #204 ,aASTMP3S 
MOV -@4STMPG 
1$ ERROR 
BR DDBDONE 
; THESE AR T DATA TABLES AND AN OUTPUT BUFFER. 


—OAWwom 
aud axed ed ed 

MNS 
ond ened ood ad [TY 
WwoOVInNwm 


5 

—~ 

U 

nm 
COCO 


DDBBFO: -1 


DDBTP3: O 


DDBDONE : 

:GO INITIALIZE THE FPS AND STACK; AND 
>SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH | lcs (HAS 
; THE USER TYPED CONTROL G?) 


J ARERR REREREKREKRERERKEERERRERERRERER EEE 


: HTEST 21 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF 
;*SOURCE FLOWS. THE NEGD INSTRUCTION 
ee15 USED TO TEST MODE 1 


PENT ERS Nt ee eT EE 


+$121: SCOPE 


SEQ 0053 
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SoagcHE § 


—a 
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12=MAR=80 07:22 121 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST SEQ 0054 
00754 EEBI: | 
007542 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
007544 012700 007652 MOV #EEBTP1,RO :SET UP THE DATA BUFFER. 
007550 012701 007702 MOV #EEBBF1.R1 
007554 012702 000004 MOV #4,R2 
007 012021 1$: MOV (RO) +, (R1)+ 
007562 O S08 R2,1 
007564 012 000200 MOV #200,RO :SET FD MODE. 
7570 170100 LDFPS RO 
007572 012700 007702 MOV wEEBBF F1,RO :SET UP THE OPERAND ADDRESS. 
007576 012737 007612 001236 MOV #EEB2 ,aaSTMP 
7604 012737 007712 000004 MOV eEEBION @WERRVECT :SET UP VECTOR 4 IN CASE OF ERROR. 
007612 170710 EEB2: NEGD (RO) :TEST INSTRUCTION. 
007614 170205 STFPS RS :GET FPS. 
007616 012701 007702 MOV #EERBF1,R1 “SEE IF RESULT IS CORRECT. 
012702 000004 MOV #4 ,R2 
007626 005721 1$: TST (RI) + 
007 001046 BNE EEB15 :BRANCH IF NOT CORRECT. 
007632 077203 SOB R2,1$ 
007634 020027 007702 CMP RO, MEEBBF 1 :1S RO CORRECT? 
007640 001055 BNE EEB20 “BRANCH IF NOT CORRECT. 
007642 022705 000204 CMP #204 ,.R5 :1S THE FPS CORRECT? 
007646 001061 BNE EEB25 “BRANCH IF NOT CORRECT. 
007650 000466 BR EERDONE 
: THESE ARE ‘TEST DATA TABLES AND A BUFFER. 
007652 000177 EEBTP1: 177 
007654 167574 167574 
007656 137271 137271 
00 107675 107675 
007662 000000 FEBTP2: 0 
007664 000000 0 
7 000000 0 
007670 000000 0 
007672 177777 EEBBFO: -1 
007674 177777 oj 
007676 177777 a1 
7777 =~] 
007702 177777 FERBF1: -1 
007704 177777 ~] 
007706 177777 “it 
007710 177777 -1 
. : IF A TRAP TO 4 OCCURS COME HERE: 
007712 011602 EEB10: MOV (SP) .R2 =SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
007714 020227 007614 CMP R2,MEEB2+2 
007720 001405 BEQ 1$ :BRANCH IF YES. 
007722 020227 007616 CMP R2,AEEB2+4 
007726 001402 BEQ 1$ :BRANCH IF YES. 
007730 000137 036166 JMP @ACPSPUR “OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 


sREPORT A FAILURE Be THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP TO 4. 


007734 022626 1$: CMP (SP) +, (SP ayy RESET THE STACK. 


007736 010237 001236 MOV R2, aeé TMP 
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304 (1052) 8 
121 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 
2$: ERROR 2 :0DD ADRES 
BR EEBDONE “BUT FDSTX IN ST 771 
-REPORT RESULT INCORRECT . 
EEBIS: MOV EBTP2 ,aa#STMP4 
PEEBTPT. * AAS TMP3 
MOV #EEBBF 1. aa$TMP5 
1$: ERROR :BAD DATA X11*0 ST 312x 
BR EEBDONE 
:RO INCORRECT: 
EEB20: MOV #EEBBF 1, a4¢$TMP3 
MOV RO, aS TMP 
1$: ERROR 2 :RO BADX 
BR EEBDONE : 
:REPORT FPS INCORRECT: 
EEB25: MOV RS. aSTMP3 
Aes, av$TMPS 
1$: sFPS xX 
EEBDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO C TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?) 
FEAR EEEREAKRAEKREKEEEERKEREEEEKREKEEEEEERKEEEERREE 
: TEST 22 NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 
: THIS 1S A TEST THE NEGF, ABSF AND TSTF 
=*SOURCE FLOWS. THE ABSD INSTRUCTION 
:aIS USED TO TEST MODE 2 
REA KEKEKAREAKAAKEKAKEEAREKEKAEKAAKCAAAAKKAKKAEKEAAEAKAEKAEAEAAERKEKEKRKKEK 
S722: SCOPE 
FFBI: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #FFBTP1.RO -SET UP THE DATA BUFFER. 
MOV #FFRBFT.R1 
MOV #4 
1$: MOV (RO)+, (R1)+ 
SOB 
MOV #200,RO :SET FD. 
LDFPS RO 
MoV wr FBBF I ,RO :SET UP THE OPERAND ADDRESS. 
MOV or EBION QWERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
FFB2: ABSD  (RO)+ : TEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV #F FBBF1,R1 “CHECK RESULT. 
MOV #4 ,R2 


5 
12-MAR-80 07:25 ” pace 1-3 


SEQ 0055 
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12-MAR-80 07:25 PAGE 1-39 
NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 


SEO 0056 | 


1$: TST (R1)+ 
BNE FFB15 :BRANCH IF INCORRECT. 
SOB R2,1$ 
CMP RO,AFFBBF1+10 :IS RO CORRECT? 
BNE FFB20 “BRANCH IF INCORRECT 
CMP #206 RS *1S THE FPS CORRECT? 
BNE FB25 “BRANCH IF INCORRECT 
BR F FBDONE 
: THESE ARE TEST DATA TABLES AND DATA BUFFER. 
FFBTP1: 177 
167574 
137271 
107675 
FFBIP2: 0 
0 
0 
0 
F FBBFO: nf 
-1 
-1 
FFBBF 1: =! 
=] 
-1 
:1F A TRAP TO 4 OCCURS COME HERE. 
FFB10: MOV (SP) ,R2 =SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
CMP R2.AFFB2+2 
BEQ 1 :BRANCH IF YES. 
CMP R2 AF FB2+4 
BEQ 1$ :BRANCH IF YES. 
JMP @4CPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
:REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 
$: CMP (SP) +, (SP)+ 
MOV R2, a¥STMP2 
2$: ERROR 2 :ODD ADRES 
BR F FBDONE “BUT FDSTX IN ST 771 
:REPORT RESULT INCORRECT: 
FFB15: MOV AFFBTP2 ,awSTMP3 
MOV AFFBTP1 aa$STMP4 
MOV #F FBBF 1, aa$TMPS 
1$: ERROR 2 :BAD DATA X11*0 ST 312x 
BR F FBDONE 
REPORT RO INCORRECT: 
FFB20: MOV #F FRB 1+4. aaSTMP3 
MOV RO, a#S TMP. 
1$: ERROR 2 :RO BADX 
BR F FBDONE 
REPORT FPS INCORRECT: 
FFB25: MOV R5 ,a4STMP5 
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12-MAR-80 07:25 PACE 1 -40 
GF, ABSF AND TSTF SOURCE “MODE 2 TEST 


MOV #204 ,a#STMPS 
ERROR 2 FPS xX 
F FBDONE : 
RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
3 IF THE USER HAS EXPRESSED 
i DESI TO CHANGE OF TWARE 
:VIRTUAL CONSOLE SWITCH lalate (HAS 
; THE USER TYPED CONTROL G?) 
PITTI IIIT TIT T IIIT TTT TILT L ITT ITTTTi titi iiti tii ii tit tt itt iii i 
: #TEST 23 NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 


TST 
= *S FLOWS. THE ABSD INSTRUCTION 
als USED TO TEST MODE 4 
FAR TSE AE AE ESOL Ee OEY ON Dn oT 
$123: SCOPE 
GGB81: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #GGBTP1,.RO :SET UP THE DATA BUFFER. 
MOV #GGBBFO.R1 
MOV #4 R 
1$: MOV (RO)+, (R1)+ 
SOB R2,1$ 
MOV #200,RO “SET FD. 
LDFPS RO 
MOV #GGBBF 1,RO :SET UP THE OPERAND ADDRESS. 
MOV #GGB2 ,a#$ 
MOV #GGB10. a#ERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
GGB2: ABSD -(RO) : TEST INSTRUCTION. 
STFPS RS -GET FPS. 
MOV #GGBBFO.R1 >CHECK RESULT. 
MOV #4 .R2 
1$: TST (R1)+ 
BNE GGB15 :BRANCH IF INCORRECT. 
SOB R2,1$ 
CMP RO, #GGBBF 0 :1S RO CORRECT? 
BNE GGB20 “BRANCH IF INCORRECT 
CMP #204 _R5 “IS THE FPS CORRECT? 
BNE GGB25 “BRANCH IF INCORRECT. 
BR GGBDONE 
: THESE ARE TEST DATA TABLES AND DATA BUFFER. 
GGBTP1: 177 
117 
167576 
177071 
GGBTP2: 0 
0 
0 
0 


: sTHIS o's A TEST THE NEGF, 


ABSF AND 


SEQ 0057 
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NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 


GGBAFO: -1 


SEQ 0058 


GGBBF1: -1 


;IF A TRAP TO 4 OCCURS COME HERE. 
6GB10: MO 2 


V -SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
CMP R2,AGGB2+2 
BEQ 1 :BRANCH IF YES. 
CMP Re. AGGB2+4 
BEQ 1$ BRANCH IF YES 
MP @4CPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 
$: CMP (SP 
MOV R2 S asbtnp2” 
2$: ERROR 2 :0DD ADRES 
BR GGBDONE “BUT FDSTX IN ST 771 
:REPORT RESULT INCORRECT: 
GGB15: MOV #GGBTP2 ,a#STMP3 
MOV #GGBTP1 , aaSTMPS 
MOV #GGBBFO.av$T 
1$: E :BAD DATA X11*0 ST 312x 
BR GGBDONE 
:REPORT RO INCORRECT: 
GB20: #GGRBF 0} . arSTMP3 
MOV RO, aS TMP 
1$: ERROR 2 RO BADX 
BR GGBDONE 
:REPORT FPS INCORRECT: 
GGB25: MOV aS TMP 
y #204, a#STMPS 
1$: ERROR 2 sFPS XxX 
GGBDONE : 


RSE TUP = G0 INITIALIZE THE FPS AND STACK; AND 
IF THE yt HAS EXPRESSED 
:THE DESIRE T O CHANGE THE SOFTWARE 
; VIRTUAL CONSOLE SWITCH oo (HAS 
; THE USER TYPED CONTROL G?) 


PITITITITITITITITI LLL LLL 


:#TEST 24 NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 


: THIS IS A_TEST THE NEGF, ABSF AND TSTF 
*SOURCE FLOWS. THE ABSD INSTRUCTION 
:*1S USED TO TEST MODE 3 


sisted debiliai tel a tii etna niece a oilll is ae eeeencakennnieie 


1ST24: SCOPE 


—_ 
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CJKDDOB.P11 12=MAR-80 07:22 724 NEGF, ABSF AND TSTF SOURCE MODE 3 TEST SEQ 0059) 
1742 01061 HH 1 : | 
(1) 010612 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. | 
1743 010614 012700 010722 MOV #HHBTP1,.RO :SET UP THE DATA BUFFER. 
1744 010620 012701 010752 MOV #HHBBF O.R1 | 
1745 010624 012702 10 MOV #10,R2 
1766 010630 012021 1$: MOV (RO) +, (R1)+ 
1747 010632 077202 SOB R2,1$ 
1748 01 012 000200 MOV #200,R0 -SET FD. 
1749 010640 170100 LDFPS RO 
1750 010642 012700 010762 MOV #HHBBF 1,RO :SET UP THE OPERAND ADDRESS. 
1751 010646 012737 010662 001236 MOV #HHB2 , a4'S TMP 
173¢ 010654 012737 010772 000004 MOV #HHB10,a#ERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
1734 010662 170630 HHB2: ABSD  a(RO)+ : TEST INSTRUCTION. 
1756 010664 170205 STFPS RS :GET FPS. 
1757 010666 012701 010752 MOV #HHBBFO,R1 >CHECK RESULT. 
1758 010672 012702 000004 MOV #4 R2 
1759 010676 005721 1$: TST (R1)+ 
1760 01 001052 BNE HHB 15 :BRANCH IF INCORRECT. 
1761 010702 077203 S08 R2,1$ 
176¢ 010 020027 010764 CMP RO.AHHBBF1+2 ;:IS RO CORRECT? 
1763 010710 001061 BNE HHB20 “BRANCH IF INCORRECT. 
1764 010712 022705 000204 CMP #204 ,R5 *1S THE FPS CORRECT? 
1765 010716 001065 BNE HHB25 “BRANCH IF INCORRECT. 
1766 720 72 BR HHBDONE 
1768 : THESE ARE TEST DATA TABLES AND DATA BUFFER. 
1769 010722 000177 HHBTP1: 177 
1770 010724 147576 147576 
1771 010726 177071 177071 
1772 010730 107576 010752 177777 107576,HHBBFO,-1,-1,-1 
010736 177777 «177777 
1773 010742 000000 000000 000000 HHBTP2: 0.0.0.0 
1774 010752 177777 HHBBFO: -1 
1775 010754 177777 -1 
1776 010756 177777 “j 
1777 010760 177777 -1 
1778 010762 177777 HHBBF1: ~1 
1779 010764 177777 af 
1780 010766 177777 ~1 
1781 010770 177777 -1 
1783 :IF A TRAP TO 4 OCCURS COME HERE. 
1784 010772 011 HHB10: MOV (SP), “SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
1785 010774 020227 010664 CMP R2, ce 2 
1786 011000 001405 BEOQ 1$ :BRANCH IF YES. 
1787 011002 020227 010666 CMP Re. MHHB2 +4 
1788 011006 001402 BEQ :BRANCH IF YES. 
1789 011010 000137 036166 JMP ecP SPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
1790 :REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4 
1791 011014 022626 i$: CMP (SP)+, (SP)+ 
1792 011016 010237 001236 MOV R2, arétiP> 
1793 011022 104002 2$: ERROR 2 :ODD ADRES 
1794 011024 BR HHBDONE “BUT FDSTX IN ST 771 
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1807 011070 
1808 
1809 011072 
1810 011076 
1811 011104 
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is ese 07:25 PAGE 1-43 
. ABSF AND TSTF SOURCE MODE 3 TEST 


:REPORT RESULT INCORRECT: 
HHB15: MOV #HHBTP2 , aS TMP3 
MOV #HHBTP1  aw$STMP4 
MOV #HHBBF 0; AAS TMPS 
1$: ERROR 2 :BAD DATA X11#*0 ST 3127 
BR HHBDONE 
: REPORT RO, INCORRECT: 
HHB20 : WHERE 12, a#$TMP3 
mov RO, a#$TMP 
1$: ERROR 2 :RO INCORRECT. 
BR HHBDONE 
:REPORT FPS INCORRECT: 
5: MOV aySTMPS 
MOV n20t. a4STMPS 
1$: ERROR -FPSX 
HHBDONE 
RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWwE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?) 
PITTTITI IIIT TIT ITITITT TT TTT Litt itt titi 
: #TEST 25 NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 
:*THIS IS A TEST THE NEGF, ABSF AND TSTF 
*SOURCE FLOWS. THE NEGD INSTRUCTION 
ial USED TO TEST MODE 5 
RE NC TIE Oy BEIT ME OT oe TE SNe a 
S125: SCOPE 
11B1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #IIBTP1.RO :SET UP THE DATA BUFFER. 
MOV #IIBBFO.R1 
MOV #10,R 
1$: MOV (ROS +, (Ri)+ 
SOB R2.1$ 
MOV #200,RO -SET FD. 
LDFPS RO 
MOV #1 IBBF 162 .RO :SET UP THE OPERAND ADDRESS. 
MOV #11B10,a#ERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
1IB2: NEGD a@-(RO) : TEST INSTRUCTION. 
STFPS RS “GET FPS. 
MOV #1IBBFO,R1 “CHECK RESULT. 
MOV #4 R2 
1$: TST tRIDS 
BNE 11B15 :BRANCH IF INCORRECT. 
S08 R2,1$ 
CMP RO. #IIBBF 1 :1S RO CORRECT? 


SEQ 0060 


CJKDD8 a, DIAG PART 


CJKDOB.P11 12-MAR~80 07:22 
1837 011210 001061 
1838 011212 022705 000204 
1839 011216 001065 
1840 011220 72 
1841 
944 
1843 011222 176 
1844 011224 177074 
185 0112 127374 
1846 Bits 157677 011252 
011 177777 | =(177777 
1847 011242 000000 
1848 011244 000000 
1849 011246 000000 
1850 011250 000000 
1851 011252 177777 
1826 011254 177777 
1853 011256 177777 
1854 011260 177777 
1855 011262 177777 
1856 011264 177777 
1857 011266 177777 
1858 011270 177777 
1859 
1860 
1861 011272 011602 
1862 011274 020227 011164 
1863 011300 1405 
1864 011302 020227 011166 
1865 011306 001402 
18 011310 137 036166 
1868 011314 022626 
1869 011316 010237 001236 
1870 011322 104002 
1871 011324 000430 
1872 
1873 
1874 O11 age 012737 011242 
1875 0113 012737 011222 
1876 011342 012737 011252 
1877 011350 104002 
1878 011352 000415 
1879 
1880 
1881 011354 012737 011262 
1882 011362 010037 001242 
1883 011366 104002 
ee 011370 06 
1886 011372 010537 001240 
1887 0113576 012737 2 
1888 011404 104002 
1889 
1890 011406 
(1) 011406 104413 
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12-MAR-80 07:25 ’ PAGE 1=4 
NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 


;BRANCH IF INCORRECT. 
31S THE FPS CORRECT? 


BRANCH IF INCORRECT. 


7SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
[BRANCH IF YES. 


H IF YES. 
RWISE GO REPORT SPURIOUS TRAP TO 4. 


aRcr SPUR 
(eee sSP) RESULTED IN A TRAP TO 4. 


;O0DD ADRES 
;BUT FDSTX IN ST 771 


;BAD DATA X11*0 ST 3127 


RO BADX 


sFPSX 


BNE 11820 
CMP #204,R5 
BNE 11B25 
BR 1 IBDONE 
: THESE ARE TEST DATA TABLES AND DATA BUFFER. 
[IBTP1: 176 
177074 
127374 
157677, 1 IBBFO,-1,-1,-1 
IIBTP2: O 
0 
0 
0 
LIBBFO: “1 
a} 
=] 
] JBBFT: "7 
~1 
= 
:IF A TRAP TO 4 OCCURS COME HERE. 
1IB10: MOV 
CMP R2, AL IB2+2 
BEQ 1$ 
CMP R2, 41 1B2+4 
BEQ 1$ 
JMP 
REPORT AN FDST 
MOV R2 arsine 
23: ERROR 2 
BR | IBDONE 
:RE RESULT INCORREC 
11B15: MOV #IIBTP2, TS ySTMPS 
MOV #11BTP I OAS TMPS 
MOV 1 1BBFO. aa$TMPS 
1$: ERROR 5 
BR | IBDONE 
:REPORT RO INCORRECT: 
11820: #1 IBBF1, arSTMP3 
MOV RO, a4STMP 
1$: ERROR 2 
BR 1 IBDONE 
:REPORT FPS INCORRECT: 
11825: MOV R5. aSTMP3 
MOV #204, aASTMPS 
1$: ERROR 2 
| IBDONE : 
RSETUP 


:GO INITIALIZE THE FPS AND STACK; AND 


SEQ 0061 


—~— 
~ tn tan 
Ww abuabed ad 
wet ID wee wee we we 


-~ 
— 
— 


BSS Sa Na Ur UN SERCO ERENT SELES 


RNR 


< 
wi 


N& 


™m 
co 


SS 


OO0000 


WG 
—_ 


ee we ee me ee re ee ee ee we ee ee ee ed ee ed eed eed nd od oe 2. ed 0 ed od ot ed = od = =) LW) Dd ss 
Lax’ 
LA 


EF II=A 
11 

011410 
011412 
011412 
011414 
ies 
911480 
011432 
011434 
011440 
011442 
011446 
011454 
011462 
011466 
011470 
011474 
011500 
011502 
011504 
011506 
011512 
011514 
011520 
011522 
Ee 
HE 
011532 
011536 
011540 
011542 
011544 
011546 
011550 
011552 
011554 
011556 


01 

012737 
170660 
170205 


177777 


000200 
011537 
011462 
011566 


000007 


011546 
000004 


011537 
000204 


MACY11 30A(1052) 
T25 


001236 
000004 


K 5 
12-MAR-80 07:25 PAGE 1-45 


NEGF , 


ABSF AND TSTF SOURCE MODE 5 TEST 


wre IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH — (HAS 
‘THE USER TYPED CONTROL G?) 


{ERE AAA EEE AERA AEAARARERAERAAERARREAAEE ARERR 


: TEST 26 


:*THIS IS A_TEST Ly. NEGF , 
;*SOURCE FLOWS. 


NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 


ABSF AND TSTF 
THE ABSD INSTRUCTION 


isIS USED TO TEST MODE 6 


pT <A a eo ER te 


75726: 
JJB1: 


1$: 


JJB2: 


1$: 


JJBTP 


JJBTP2: 
J JBBF 0: 


JJBBF 1: 


SCOPE 


ae. —" DATA TABLES AND 


;SET UP THE LOOP ON ERROR ADDRESS. 


#JJBTP1 ,RO ;SET UP THE DATA BUFFER. 


#J JBBFO;R1 
#4 .R2 

(RO) .(R1)+ 
#200,RO :SET FD. 
#JJBBFO-7.RO  ;SET UP THE OPERAND ADDRESS. 
#JJB2 ,aaSTMP2 


#JJB10,aWERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 


7(RO) : TEST INSTRUCTION. 

5 sGET FPS. 

#JJBBFO,R1 =CHECK RESULT. 
#4.R2 

(Ri)+ 

reg :BRANCH IF INCORRECT. 
RO.AJJBBFO-7  :IS RO CORRECT? 
JJB15 “BRANCH IF INCORRECT. 
#204 ,.R5 “IS THE FPS CORRECT? 
JJB20 “BRANCH IF INCORRECT. 
JJBDONE 


DATA BUFFER. 


5 
CJKDD8 . Ale DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 ACE 1-46 


CJKDDB.P11 12=MAR=-B0 07:22 726 NEGF. ABSF AND TSTF SOURCE MODE 6 TEST SEQ 0063 

1934 011560 ? of 
1935 011562 177777 -1 
19 011564 177777 of 
1938 :IF A TRAP TO 4 OCCURS COME HERE. 

1939 011566 01160 5JB10: MOV P)R *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
1940 011570 020227 011464 CMP R2,#JJB2+2 

1941 011574 001405 BEQ 1$ :BRANCH IF YES. 

1948 011576 020227 011466 CMP R2 AJ JB2+4 

1943 011602 001402 BEQ 1$ ;BRANCH IF YES. 

1944 011606 000137 036166 JMP @SCPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
1945 “REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 
1946 011610 022626 i$: CMP (SP) +, ( 

1947 011612 010237 001236 MOV R2,av$T the? 

1948 011616 104002 2$: ERROR 2 :ODD ADRES 

1 011620 000430 BR JJBDONE :BUT FDSTX IN ST 771 
1951 :REPORT RESULT INCORRECT: 

195¢ 011622 012737 011536 001240 JuB15: MOV #JJBTP2, aaSTMP3 

1953 011630 012737 011524 001242 MOV #JIJBTP1 .aASTMPS 

1954 011636 012737 011546 001244 MOV #JJBBF 0. aa$STMPS 

1955 011644 104002 1$: ERROR 2 :BAD DATA X11*0 ST 3127 
1956 011646 000415 BR JJBDONE 

1958 :REPORT RO INCORRECT: 

1959 011650 012737 011537 001240 JJB20: MOV #JJBBE OW? aASTMP3 

1960 011656 010037 001242 MOV RO, a#$TMP 

1961 011662 104002 1$: ERROR 2 :RO BADX 

1962 011664 000406 BR JJBDONE 

1963 :REPORT FPS INCORRECT: 

1964 011666 010537 001240 5JB25: MOV RS, a¢STMP3 

1965 011672 012737 000204 001244 MOV #204, BASTMPS 

1966 011700 104002 1$: ERROR 2 = FPSX 

1967 011702 JJBDONE : 

(1) 011702 104413 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 

(1) “SEE IF THE USER HAS EXPRESSED 

(1) = THE DESIRE TO CHANGE THE SOFTWARE 

(1) :VIR TUAL CONSOLE SWITCH REGISTER (HAS 

(1) -THE USER TYPED CONTROL G?). 

1968 PIT TIII TTT TIT TT tit ttt tT iititiitit titi iit tiie ttt ttt 

(3) : #TEST 27 NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 
(4) :*THIS IS A TEST THE NEGF, ABSF AND TSTF 

(4) -*SOURCE FLOWS. THE ABSD INSTRUCTION 

(4) #15 USED TO TEST MODE 6 

(3) .  dghnsdpedeenenteocebetedetsocsenentacdaereeeecececenecenetence 
; 2) 011704 000004 $127: SCOPE 
1970 011706 KKB1: 

(1) 011706 104414 LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
1971 011710 012700 012020 MOV #KKBTP1,RO :SET UP THE DATA BUFFER. 
19% 011714 012701 012050 MOV #KKBBFO,R1 
1973 011720 012702 000010 MOV #10,Re 
1974 011724 012021 1$: MOV (RO+, (R1)+ 
1975 011726 077202 SOB R2,1$ 


eT 

<.. ¢.. 
at ~ 
oO 


BRS ISS 


SPERRPENE ECL att 


BsesoRess 


BBBBBBE 


tet 
adod 
WO \NYOULSW oO 


ss 


202 


11-A fess PART 


12-MAR~80 07:22 


012070 
000007 


012050 
000004 


012051 
000204 


012050 
177777 


011760 
011762 
036166 


001236 


;REPOR 
012040 001240 KKB15: 
012020 001242 


001236 
000004 


177777 





MACY11 30A(1052) 
T27 NE 


KKB2: 


1$: 


LDFPS 
MOV #KKBBF 1-7,RO 
MOV #KKB 
NEGD  a7(RO) 
STFPS RS 
V #KKBBFO,R1 
MOV #4 R2 
TST (R1)+ 
BNE KKB15 
SOB R2,1$ 
CMP RO. #KKBBF 1-7 
BNE KKB20 
CMP #204,R5 
BNE KKB20 


M 5 
12-MAR-80 07:25 PAGE 1-47 
GF, ABSF AND TSTF SOURCE MODE 7 TEST 


MOV sa00 Re 


:SET FD. 
: SET UP THE OPERAND ADDRESS. 
MOV #KKB10,a#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 





;TEST INSTRUCTION. 


;GET FPS 


;BRANCH IF INCORRECT. 


CORRECT? 
;BRANCH IF INCORRECT. 
:1S THE FPS CORRECT? 
;BRANCH IF INCORRECT. 


:1S RO 


“CHECK RESULT. 


; THESE ARE_TEST DATA TABLES AND DATA BUFFER. 
KKBTP1: 177 


KKBTP2: 
KKBBF 0: 


KKBBF 1 : 


;1F A TRAP TO 4 OCCURS COME HERE. 
KKB10: (SP) ,R2 ;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


;REPORT 
1$: 


2$: 


167574 
137271 
107675 ,KKBBFO,-1,-1,-1 


CMP R2,#KKB2+2 
CMP R2 ,AKKB2+4 
1$ 


MP SP)+,(SP)+ 
MOV R2, a#$STMP2 
ERROR 2 
BR KKBDONE 


RESULT INCORRECT: 
MOV 


#KKBTP2 , a#STMP3 
MOV AKKBTP1 ,aa#$TMP4 


;BRANCH IF YES. 


BRANCH IF YES 
E GOR 


a4 CPSPUR ; OTHERWIS 
a FDST ‘i FAILURE RESULTED IN A TRAP TO 4 


;ODD ADRES 
;BUT FDSTX IN ST 771 


REPORT SPURIOUS TRAP TO 4. 


nr — 


N 5 
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SEQ 0065 
CJKDDB.P11  12=MAR-80 07:22 127 NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 
$03 Osteo Aes — 1$: ERROR cabanas :BAD DATA X11*0 ST 3127 
2038 015198 0ooe BR KKBDONE 
:REPORT R% INCORRECT: 
er 012152 012737 012051 001240 KkB20: MOV WKKEBE 1-7 ae$TMP3 
30 ? 015186 010037 001242 MOV RO, a¥STMP ——— 
sO38 012164 104002 1$: ERROR 2 
2039 O15 366 000406 BR KKBDONE 
2041 012170 010537 001240 KKB25 : 3 : 
12174 012737 000204 001244 MOV aD BAS TMP 
$028 915303 104002 1$: ERROR 2 = FPSX 
ots 13504 — THE FPS AND STACK; AND 
(1) 012204 104413 RSETUP :G0, INITIALIZE T THE EPS AND STA 
1) “THE DESIRE TO CHANGE THE SOFTWARE 
a) “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
y nes TYBED COWTROL G7) 
=. KREKKKKEKKKEAAEEKKKEKKK 
3) STEST 30. NEGF. ABSF AND TSTF SOURCE MODE 6, GR7, TEST 
(4) ;* 
: A TEST THE NEGF, ABSF AND TSTF 
(a) < SOURCE FLOUS: THE NEGD INSTRUCTION 
(4) isis USED TO TEST MODE 6 
3) a ae 
2} 913808 cones ie ee 
RR :SET UP THE LOOP ON ERROR ADDRESS 
2048 O15545 093700 012310 nov #LLBTP -RO -SET UP THE DATA BUFFER. 
$050 §15529 Sead 8800. MOV #4,.R2 
2051 012286 012021 1$: MOV (RO) +, (R1)+ 
soe8 8} $6 2 85500 000200 MOV #200, RO :SET FD. 
Be Hes MOB oz ony «=A ons 
36 012246 012737 012350 000004 MOV atBiO as BFERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
Se 012254 170767 000050 LLB2: NEGD  LLABBFO -TEST INSTRUCTION. 
STFPS RS :GET FPS. 
Y B19962 015901 012330 Ls la oe CHECK RESULT. 
01 012702 000004 ae MOV 4 Re 
Soez $15594 ites BNE LLB15 :BRANCH IF INCORRECT. 
shee 5 8 $35 be 000204 one BS 64 °RS -IS THE FPS CORRECT? 
Soe? Oi S300 001052 BNE LLB25 - BRANCH IF INCORRECT. 
2068 012306 000457 BR LLBDONE 
$090 ; THESE E ARE _TEST DATA TABLES AND DATA BUFFER. 
71 012310 000127 LLATP 
$072 012312 7137475 475 


CJKDD8 ee tA, DIAG PART 
CJKDOB .P1 12-MAR~80 07: 


2073 

74 
75 
76 
77 


2078 
2079 


SEESRS RR ot tc 


MIMINIMINMININININININININ 


ee ed eed eed eed ed =e 2d ed 
VNC CCC CN UOSS UR Oe 


Nm 


o OoOoo°o°o°o 
hated w—aadebabad 


012432 
01 
012444 


012446 
012446 


012450 
012452 


14737 


012256 
012260 
036166 


001236 


012320 
012310 
012350 


001240 
000204 


MACY11 30A(1052) 
730 


001244 


LLBTP2: 
LLBBFO: 


LLBBF 1: 


;1F A TRAP TO 4 OCCURS COME HERE. 
LLB10: (SP) .R 


B 6 
a 07:25 PAGE 1-49 
ABSF AND TSTF SOURCE MODE 6, GR7, TEST 


MOV *SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
CMP R2 ,ALLB2+2 
BEQ 1$ :BRANCH IF YES. 
CMP Re. ALLB2+4 
BEQ 1$ :BRANCH IF YES. 
@4CPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
REPORT AN FDST FLOW FA FAILURE RESULTED IN A TRAP TO 4. 
Re > asstie2 
2$: ERROR :ODD ADRES 
¢ UBDONE “BUT FDSTX IN ST 771 
:REPORT RESULT INCORRECT: 
[LB15: MOV #LLBTP, avSTMP3 
MOV #LLBTP1 ,aaSTMPS 
MOV #LLBBFO, aa$TMP5 
1$: ERROR 2 :BAD DATA X11*0 ST 3127 
BR LLBDONE 
:REPORT FPS INCORRECT: 
[LB25: MOV RS. a#STMP3 
MOV W200 arst MPS 
1$: ERROR 2 sFPSX 
LLBDONE : 
RSETUP 


;GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
IRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


PITTTIITITITTITIIIT ITT TT LITT TIT tt TELL LLL LEE L LLL LLL iid. 


: TEST 31 NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST 
THIS IS A_TEST THE NEGF, ABSF AND TSTF 
> *SOURCE 


OWS. THE a INSTRUCT ION 


FL 
-*IS USED TO TEST MODE 


MARSA SSAASZASALZA£L£AA SELES AASLASAAASASARA AAR RRS R RA RR RRA RAR AS ESS S SS SD | 


wo 


MMB 1: 


SCOPE 


SEQ 0066 


—_ 
el ced eed eed 


RERUNS Oo we 


Ree SII 


SEAPARATESSULTURUNUSSHELSGRG SHSSeUeoRasey 


C 6 
KEF11=A DIAG PART MACY11 30A(1052) 12=-MAR-80 07:25 PAGE 1-50 
11  12=MAR-80 07:22 131 NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST SEQ 0067 
012452 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
012454 012700 012552 MOV #MMBTP1 RO :SET UP THE DATA BUFFER. 
012460 012701 012602 MOV WPBBFO.R1 
01 012702 10 MOV #10,R2 
012470 012021 1$: MOV (ROS +, (R1)+ 
012472 0 202 SOB R 
012674 012 000200 MOV #200,RO -SET FD. 
012500 1701 LDFPS RO 
01 012737 012516 001236 V #MMB2 . ANS TMP2 
012510 012737 012622 000004 MOV #MMB10,a#ERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 
012516 170677 000070 MMB2: ABSD a@MWBBF1 : TEST INSTRUCTION. 
012522 170205 STFPS RS :GET FPS. 
012524 012701 012602 MOV #MMBBFO.R1 >CHECK RESULT. 
012530 012702 000004 MOV #4 ,R2 
012534 005721 1$: TST (R1)+ 
012536 001047 BNE MMB 15 :BRANCH IF INCORRECT. 
012540 077203 S08 R2,1$ 
012542 022705 000204 CMP #204 ,R5 :IS THE FPS CORRECT? 
12546 001056 BNE mB 25 “BRANCH IF INCORRECT. 
012550 000463 BR MMBDONE 
: THESE ARE TEST DATA TABLES AND DATA BUFFER. 
012552 000137 MMBTIP1: 137 
012554 04560 
012556 101230 101230 
012560 045607 012602 177777 45607 .MMBBFO,-1,-1,-1 
012566 177777 177777 
012572 000000 MMBTP2: 0 
012574 000000 0 
012576 000000 0 
012600 000000 
012602 177777 MMBBFO: <1 
12 177777 -1 
0 177777 =] 
012610 -1 
012612 177777 MMBBF1: -1 
012614 177777 of 
012616 177777 of 
2620 177777 aj 
:1F A TRAP TO 4 OCCURS COME HERE. 
012622 011602 B10: MOV SP) .R “SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
020227 012520 CMP R2, MIMBO +2 
012630 001405 BEQ 1$ :BRANCH IF YES. 
012632 020227 012522 CMP R2, AMMB2 +4 
012636 001402 BEQ 1$ :BRANCH IF YES. 
012640 000137 036166 JMP @4CPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
:REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 
012644 022626 1$: CMP (SP)+, (SP) + 
012646 010237 001236 MOV R2, a#$TMP2 
012652 104002 2$: ERROR 2 :ODD ADRES 
012654 000421 BR MMBDONE “BUT FDSTX IN ST 771 


;REPORT RESULT INCORRECT: 





CJKDDB KEF11-A DIAG PART 2 


D 6 
ae 07:25 PAGE 1-51 


MACY11 30A(1052) 
731 NE 


CJKDDB.P11 12=MAR-80 07:22 , ABSF AND TSTF SOURCE MODE 7, GR7, TEST SEQ 0068 

2170 012656 012737 012572 001240 ™MB15: MOV MOBIP?. aeSTMP3 

2171 012664 012737 012552 001242 MOV #MMBTP1 . a#STMPS 

178 012672 012737 012602 001244 MOV #MMBBF 0. aS TMPS 

21 700 104002 1$: ERROR 2 :BAD DATA K11*0 ST 3127 

2174 012702 06 BR MMBDONE 

2175 :REPORT FPS INCORRECT: 

2176 012704 010537 001240 MYMB25: MOV RS a4STMP3 

2177 012710 012737 204 001244 MOV 4204, a4STMPS 

3178 012716 104002 1$: ERROR =F PSX 

2180 012720 MMBDONE : 

(1) 012720 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) “SEE IF THE USER HAS EXPRESSED 
(1) -THE DESIRE TO CHANGE THE SOFTWARE 
(1) -VIRTUAL CONSOLE SWITCH REGISTER (HAS 
(1) *THE USER TYPED CONTROL G?) 

2187 PTTITITITI TIT TIT ITI TIT ITI TITITIT TTT ttt Titi titi tt tit titi itt it it 
(3) :*TEST 32 SPECIAL DEST, MODE 0, TEST 

** 

(4) :*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 

Co) ;*MODE 0 USING THE NEGD INSTR. 

(3) + SRR EKER ERE EERE REE EERE REE ERE EERE RRR 
mr?) 012722 000004 TST32: SCOPE 
2189 012724 NNB1 : 

(1) 012724 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2190 012726 012700 000200 MOV #200,RO =SET FD. 

2191 012732 170100 LDFPS R 
2192 12734 012700 013022 V ANNBTP1.RO :SET UP ACO. 

2193 012740 172410 LDD (RO) ACO 
313% 012742 012737 012750 001236 MOV #NNB2 , AAS TMP2 
3196 012750 170700 NNB2: NEGD ACO :TEST INSTRUCTION. 
2198 012752 170205 STFPS RS :GET FPS. 

2199 012754 012700 000200 MOV #200,RO -SET FD. 

2200 012760 170100 LDFPS 
2201 012762 012700 013042 MOV AANNBBF 0,RO :GET THE RESULT. 

220 012766 174010 STD ACO, (RO) 

2203 012770 012700 013042 MOV ANNBBFO,RO :1S THE RESULT CORRECT? 
2204 012774 012701 013032 MOV ANNBTP2,R1 

2205 013000 012702 000004 MOV Me 

2206 013004 022021 1$: CMP (RO) +, (R1)+ 

2207 013006 001021 BNE NNB10 :BRANCH IF INCORRECT. 

2208 013010 077203 S08 R2,1$ 

2209 013012 022705 000210 CMP #210_R5 :1S THE FPS CORRECT? 

2210 013016 00103 BNE NNB15 “BRANCH IF INCORRECT. 

9211 013020 0004 BR NNBDONE 
$518 THESE ARE DATA TABLES AND A DATA BUFFER. 

2214 013022 013572 NNBTP1: 013572 

2215 013024 046013 

2216 013026 057246 57246 

2217 013030 013570 013570 

2218 013032 113572 NNBTP2: 113572 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


“> 2 
oR 


— — wd 


WAG 
NY Sve RVL 


ooo 
aud ond aad 


WW WAS 
bead 8 abaadad 


12-MAR-80 07:22 

046013 
057246 
013570 
000000 
000000 
000000 
000000 
012737 013042 
oleae 013032 
023737 013022 
001002 
104001 
000410 
104001 

06 
010537 001242 
012737 000210 
104001 
104413 
000004 
104414 
012701 013240 
012700 013250 
012702 000004 
012021 
Or cous 
012700 013240 
042710 100000 
012737 013174 
012701 000200 
170101 
170710 
170205 


MACY11 30A(7052) 
T32 


001240 


001236 


E 6 
12-MAR-80 07:25 ONE St 1-52 


SPECIAL DEST, MODE 0 


3E10*200x ST 336 


;BAD DATA NEGF 


sFPSX 


:GO INITIALIZE THE FPS AND STACK; AND 
XPRESSED 


RTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?). 


PITTI TIT TTI TTT iT TTT iT iti tiiiii titi tt iiiitt iit i titi tei t ttt 


46013 
$7246 
013570 
NNBBFO: 0 
0 
0 
0 
=REPORT RESULT INCORRECT: 
NNB10: = ANNEBF 0 
#NNBTP2, awSTMPS 
peck @YNNBTP 4 
BNE NNB11 
1$: ERROR 1 
BR NNSDONE 
=REPORT RESUI.T INCORRECT: 
NNB11: 
1$: ERROR 1 
BR 
:REPORT FPS INCORRECT: 
NNB15: MOV RS. a#STMPS 
MOV A2i0, avSTMPS 
1$: ERROR 
NNBDONE : 
RSETUP 
: #TEST 33 


SPECIAL DEST, MODE 1, 


TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 


: *MODE 


o* 


1 USING THE NEGD INSTR. 


*RRAAREKRARAEAAEEEEEAREKEEAEEAEKKEAEEAAAEAREAAEEKEAAEEAEEAEEARAAEAEAEKEREK 


15733: 
00B1 : 


1$: 


O0B2: 


SCOPE 


#OOBTP1,R1 
#OOBTP2 ,RO 


MS 
(RO)+, (R1)+4 


;MAKE OPERAND POSITIVE. 
sSET FD. 


:TEST INSTRUCTION. 
GET FPS. 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


073256 


013260 
013266 
013274 
013276 


12-MAR-80 


012701 
01 AN 
i 


023245 
026720 
122324 


052672 


012737 
010537 
104002 


104413 


104414 


07:22 


013240 
013250 
000004 


013240 
000210 


013240 
013250 


013240 
001242 


000210 
001242 


MACY11 30A(1052) 
133 


001240 
001242 


001240 


001240 


1$: 


6 
Legs 07:25 * pAGE 1-53 
SPECIAL DEST, MODE 1, TEST 


MOV #OOBTP1.R1 :I1S THE RESULT CORRECT. 
MOV #OOBTP? "K2 

MOV R3 

CMP {Ride (RQ) 

BNE 00810 :BRANCH IF INCORRECT. 
SOB R3,1$ 

CMP #00BTP1,RO :1S RO CORRECT. 

BNE 00815 “BRANCH IF INCORRECT. 
CMP #210,R5 “1S THE FPS CORRECT? 
BNE 00826 “BRANCH IF INCORRECT. 
BR OOBDONE 


; THESE ARE_DATA TABLES AND A DATA BUFFER. 
OOBTP1: 023245 


6 
122324 
52672 
OOBTP2: 123245 
26720 
122324 
52672 
:REPORT RESULT INCORRECT: 
00810: MOV #OOBTP1 , aS TMP3 
MOV HOOBTP2 . a#$TMP4 
1$: ERROR 2 :BAD DATA 
BR 
:REPORT RO INCORRECT: 
00815: MOV #OOBTP1 gestures 
MOV RO, a#STMP 
1$: ERROR 2 :SPEC DESTX 
BR =ROX 
:REPORT FPS INCORRECT: 
00B20: MOV #210, avSTMP3 
MOV RS, aS TMP4 
1$: ERROR 2 
OOBDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
“THE DESIRE TO CHANGE THE SOFTWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?) 
PITTTITITTITILILITI TTT TL LLL TLL ELLs 
:#TEST 34 SPECIAL DEST, MODE 2, TEST 
<STHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; *MODE 2 USING THE NEGD INSTR. 
. EEE EEN NE A OE DN Tn 
15734: SCOPE 
" LPERR :SET UP THE LOOP ON ERROR ADDRESS. 


SEQ ‘eal 


CJKDDB KEF11-A DIAG PART 
CJKDDB.P11 


NMonofmonoonngnonsnnonnnrangnw 

peeietetetepepetetetepet tt + 
eS ee eee SP 

—"OOWdNOUWS WO 


RORORS 
Fw 


eel ee ee 
BUI 
ot OnNaWN 


eeeee 
eeee 
OSN 


™ 
oO 


eek 
NO 


eed ed ed ed wd sd 


SEES 


oo°o°o 
and and end ed 
RASk 
RRXS 


oooo 
i os 
NWAAIG 
WA 
mwnN-— 
ENMAO 





104413 


12-MAR-80 07:22 


013450 
013460 
000004 


013450 
100000 
013404 
000200 


MACY11 30A(1052) 
134 


001236 


001240 


001240 


MOV #4 R2 
1$: MOV (RO)+,(R1)+ 
SOB R2,1$ 
MOV #PPRTP1.RO 
BIC #100000, (RO) :MAKE OPERAND POSITIVE. 
MOV #PPB2 , aASTMP2 
V #200,R1 -SET FD. 
LDFPS R 
PPB2: NEGD (RO)+ : TEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV #PPBIP1,R1 :1S THE RESULT CORRECT. 
MOV #PPBTP2.R2 
MOV #4 ,R 
1$: CMP (R1)+, (R2)+ 
BNE PPB10 :BRANCH IF INCORRECT. 
S08 R3,1$ 
CMP #PPBTP1+10,RO  ;1S RO CORRECT. 
BNE PPB15 “BRANCH IF INCORRECT. 
CMP #210,R5 -1S THE FPS CORRECT? 
BNE pPB26 “BRANCH IF INCORRECT. 
BR PPBDONE 
: THESE ARE DATA TABLES AND A DATA BUFFER. 
PPBTP1: 023245 
720 
122324 
672 
PPBTP2: 123245 
6720 
122324 
52672 
:REPORT RESULT INCORRECT: 
PPB10: MOV #PPBIP1 ,aaSTMP3 
MOV #PPBTP2, avSTMPS 
1$: ERROR 1 :BAD DATA 
8R PPBDCNE 
:REPORT RO INCORRECT: 
PPB15: MOV #PPBTP1+10,a4STMP3 
MOV RO, aS TMP 
1$: ERROR 1 :SPEC DESTX ROX 
BR PPBDONE 
:REPORT FPS INCORRECT: 
PPB20: MOV #210, a#STMP3 
R5, aASTMPG 
1$: ERROR 1 
PPBDONE : 
RSE TUP -GO INITIALIZE THE FPS AND STACK: AND 


G 6 
12-MAR-80 07:25 PAGE 1-54 
SPECIAL DEST. MODE 2, TEST 


MOV #PPBTP1 ,R1 


;SET UP THE DATA BUFFER. 
MOV #PPBTP2 ,RO 


a 


SEQ 0071 


Nm 
x 
ee 


- 
at 


MMMM NN NNT 


(2) 


SESESESS 
Ooooooocoooooo 
aed ad iad adadedad abated 


S 
=) 


BA WA Is 
SESS ESE Ee 
R oOoo0o00o— 


oooo oO 
aabehaD ad 
MON oO 


13636 


ooo 
ad od 


COoooo°ceo0°oo 
ao auf and anh ab and an and and and 
WANA AN 

RRERER S33 


oO 
<b and 
LAG 
~™N 

> 
on 


eee 4 


013662 
000210 


177777 


;REPORT 
013662 001240 00810: 
013702 001242 


MACY11 30A(1052) 
134 


177770 
001236 


177777 


eee —e ee 


6 
12-MAR-80 07:25 "PAGE 1-55 
SPECIAL DEST, MODE 2, TEST SEQ 0072 
sSEE IF THE ows HAS EXPRESSED 

:THE DESIRE TO CHANGE THE SOF TWARE 

:VIRTUAL CONSOLE SWITCH ee (HAS 

; THE USER TYPED CONTROL G?) 


2 POPP e TTT TTT TTT TTT TTTTTITTTITT TTT TTT TTT TTT TTT TTT TT ETT 


**TEST 35 SPECIAL DEST, MODE 4, TEST 


:*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; *MODE 4 USING THE NEGD INSTR. 


Ps 
WMARRARARBASASALALARALARAARARSRARR SARA SERRA RA AR RRA RRR AARARARARA AAS SS A | 


1$135: SCOPE 


0081: 


;SET UP THE LOOP ON ERROR ADDRESS. 
#QQBTP1,R1 ;SET UP THE DATA BUFFER. 


MOV #QQBTP2,RO 
#4,R 
(RO) +, (R1)+ 


SOB R2, 
MOV #QQBTP1+10 RO. 
BIC #100000,-10(RO) :MAKE OPERAND POSITIVE. 
MOV #Q0B2, a4 MP ~ 
MOV #200,R1 -SET FD. 
LDFPS RI 

Q082: NEGD -(RO) : TEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV #QQBTP1.R1 -IS THE RESULT CORRECT. 
MOV #QQBTP2.R2 
MOV #4 R3 

1$ CMP (R1)+, (R2)+ 
BNE 90810 :BRANCH IF INCORRECT. 
SOB R3,1$ 
CMP #QQBTP1.RO :1S RO CORRECT. 
BNE 00815 CH IF INCORRECT 
CMP #210.R5 :1S THE FPS CORRECT? 
BNE 00820 “BRANCH IF INCORRECT. 
BR QQBDONE 

: THESE ARE DATA TABLES AND A DATA BUFFER. 

QQBTP1: 023245 
26720 
122324 
52672 

wt. -1.<1,01 

QQBTP2: 123245 
26720 
122324 
52672 


RESULT INCORRECT: 
MOV #QQBTP1 ,a#$TMP3 
MOV #QOBTP2 , aw$TMP4 


CJKDDB KEF11-A DIAG PART 
CJKDDB.P11 


Oyerwww™~ 


3 


513780 


013766 
013770 


014076 


104001 
000415 


170730 


12-MAR-80 07:22 


MACY11 30A(1052) 
135 


013662 001240 
001242 


gong )8 
001242 


001240 





I 6 
Peg ¢ 07:25 PAGE 1-56 
SPECIAL DEST, MODE 4, TEST 


;BAD DATA 


;SPEC DESTX ROX 


;GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 

iy | DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH a (HAS 
:THE USER TYPED CONTROL G?) 


SEERA AEAEAREREEAERARRAAARAEEEAERERERRERAEEEEE 


1$: ERROR 1 
BR QQBDONE 
REPORT RO INCORRECT 
0081 5: MOV #OOBTP1 ,a4$TMP3 
MOV RO, a#STMPS 
1$: ERR 1 
BR GQBDONE 
REPORT FPS INCORRECT 
00820: MOV #210, a#STMP3 
MOV STMP 
1$: ERROR 
QQBDONE : 
RSETUP 
:#TEST 36 SPECIAL DEST, 


MODE 3, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 


> *MODE 


3 USING THE NEGD INSTR. 


"REEKREKRAREKRREAEAARKAEAAEAEEAAEAREAAEKCAEAKEEKREEREKEKREKEAERAARAEAEEKAEEE 


18136: 
RRB1: 


1$: 


RRB2: 


SCOPE 


ARRBTP1.R1 
ARRBTP2_RO 
#4 R2 
(RO) + , (RI + 
#RRBTP3.RO 
#RRBTP1. (RO) 
#100000, a#RRBTP1 
iRRB? abet 
200,R 


#200, 

R1 

a(RO)+ 

R5 
ARRBTP1.R1 
#RRBTP2 .R2 
#4 R3 
(R1)+, (R2)+ 
RRB10 
R3,1$ 
#RRBTP3+2,RO 
RRB15 


ERROR ADDRESS. 
FER 


;MAKE THE OPERAND POSITIVE. 
sSET FD. 


; TEST INSTRUCTION. 


sGET FPS. 
21S THE RESULT CORRECT. 


;BRANCH IF INCORRECT. 


;1S RO CORRECT 
“BRANCH IF INCORRECT. 


SEQ 0073 


Soa aie a 


6 
CUKDDB KEF11-A DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 ’ pace - 57 
CJKDDB.P11 12=MAR~80 07:22 136 SPECIAL DEST, MODE 3, TEST SEQ 0074 
2446 014100 022705 000210 CMP #210.R5 31S THE FPS CORRECT? 
2447 014104 001031 BNE RRB20 “BRANCH IF INCORRECT. 
sig 014106 000436 BR RRBDONE 
2450 THESE ARE DATA TABLES AND A DATA BUFFER. 
2451 014110 023245 RRBTP1: 023245 
2452 014112 026 20 26720 
2453 016114 122324 122324 
2454 014116 052672 52672 
2455 014120 123245 RRBTP2: 123245 
2456 014122 36720 ? 
2457 014124 324 123324 
2458 014126 052672 52672 
Si2n 0141 014110 RRBTPS: RRBTP1 
2461 :REPORT RESULT INCORRECT: 
2462 014132 012737 014110 001240 RRB10: MOV #RRBTP1 , a#$STMP3 
2463 014140 012737 014120 001242 MOV #RRBTP2. a#STMPG 
2464 014146 104001 1$: ERROR 1 :BAD DATA 
3465 014150 000415 BR RRBDONE 
2467 :REPORT RO INCORRECT: 
2468 014152 012737 014132 001240 RRB15: #RRBTP3+2 , aASTMP3 
2469 014160 010037 001242 mov R0. avs TMP4 
2470 014164 104001 1$: ERROR :SPEC DESTX ROX 
2671 014166 000406 BR RREDONE 
2673 :REPORT FPS INCORRECT: 
2474 014170 012737 000210 001240 RRB2O: MOV #210, avS IMP 
2475 014176 010537 001242 MOV RS, aaSTMP 
3476 014202 104001 1$: 
2478 014204 RRBDONE : 
(1) 014204 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) “SEE IF THE USER HAS EXPRESSED 
(1) ;THE DESIRE TO CHANGE THE SOF TWARE 
(1) “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
a :THE USER TYPED CONTROL G?) 
2480 {AERA AAERARREKERERREEEEAEKRERAREKERAEKRERAAAERERAERAERAAERAAAEEREER ER 
(3) : TEST 37 SPECIAL DEST, MODE 5, TEST 
(4) < eTHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
(4) : sMODE 5 USING THE NEGD INSTR. 
(3) s ciiieladlnhieaih aah salt ad elie eet alahintedhiiantewtaibiamistininatites 
(2) 014206 000004 S137: SCOPE 
2481 014210 SSB1: 
(1) 014210 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2482 014212 012701 014332 MOV #SSBTP1,R1 “SET UP THE DATA BUFFER. 
2483 014216 012700 014342 MOV #SSBTP2.RO 
2484 014222 012702 000004 MOV #GR 
2485 014226 012021 1$: MOV (RO) +, (R1)+ 
2486 014230 077202 SOB R2,1$ 
2487 014232 012700 014354 MOV #SSBTP3+2,RO 
2488 014236 012760 014332 177776 MOV #SSBTP1 ,-2(RO) 


—— ee 


6 
CJKDDB KEF11-A DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 “PAGE se 


CJKDDB.P11 _12=MAR=80 07:22 137 SPECIAL DEST, MODE S, SEQ 0075 
2489 014244 042737 100000 014332 BIC #100000, a#SSBTP1 :MAKE THE OPERAND POSITIVE. 
2490 014252 012737 014266 001236 MOV #SSB2 , aaSTMP2 
2491 014260 012701 000200 MOV #200,R1 -SET FD. 

3498 014 170101 LDFPS RI | 

49% 014266 170750 SSB2: NEGD a-=(RO) : TEST INSTRUCTION. 

2496 014270 170205 STFPS RS :GET FPS. 

2497 014272 012701 014332 MOV #SSBTP1,R1 :1S THE RESULT CORRECT. 

2498 014276 012708 014342 MOV #SSBTP2.R2 

2499 014 012703 000004 MOV #4 R3 

2500 014306 022122 1$: CMP (R1)+, (R2)+ 

2501 014310 001021 BNE $SB10 :BRANCH IF INCORRECT. 

2 014312 077303 S08 R3,1$ 

2503 014314 022700 014352 CMP #SSBTP3,RO :1S RO CORRECT. 

2504 014320 001025 BNE $SB15 “BRANCH IF INCORRECT. 

2505 014322 022705 000210 CMP #210.R5 “IS THE FPS CORRECT? 

2506 014326 001031 BNE $$B20 “BRANCH IF INCORRECT. 

307 014330 000436 BR SSBDONE 

2509 : THESE ARE DATA TABLES AND A DATA BUFFER. 

2510 014332 023245 SSBIP1: 023245 

2511 014334 026720 

2512 014336 122324 122324 

2513 014340 052672 52672 

2514 014342 123245 SSBTP2: 123245 

2515 014344 026270 ? 

2516 014346 122324 122324 

2517 014350 052672 2672 

2518 014352 014332 SSBTP3: SSBTP1 

2520 :REPORT RESULT INCORRECT: 

2521 014354 012737 014332 001240 $SB10: MOV #SSBIP1 , a#STMP3 

2522 014362 012737 014342 001242 MOV #SSBIP2 ,aa$TMP4 

2523 014370 104001 1$: ERROR 1 :BAD DATA 

2324 014372 000415 BR SSBDONE 

2526 :REPORT RO INCORRECT: 

2527 014374 012737 014352 001240 §SB15: MOV #SSBIP3, a#STMP3 

2528 014402 010037 001242 MOV RO, avSTMPS 

2529 014406 104001 1$: ERROR 1 :SPEC DESTX ROX 

230 014410 000406 BR SSBDONE 

2532 :REPORT FPS INCORRECT 

2533 014412 012737 000210 001240 SSB20: MOV #210, arsTHP3 

2534 014420 010537 001242 MOV R5, aaS IMPS 

539 014424 104001 1$: ERROR 

2537 014426 SSBDONE : 
(1) 014426 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK: AND 
(1) ;SEE IF THE USER HAS EXPRESSED 
(1) -THE DESIRE TO C SOF TWARE 
(1) “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
(1) -THE USER TYPED CONTROL G?). 

2538 PTT IIIT TIT T TTT TIT TT Tit titi iiiiitititiiiiitiiitttittti tii iii 
(3) “TEST 40 SPECIAL DEST, FLOATING MODE 2, TEST 
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014544 
014554 
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014550 
000010 
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001236 
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001242 


001240 
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SPECIAL DEST, FLOATING MODE 2, TEST SEQ 0076 


THIS IS A_ TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 


**MODE 2 USING THE NEGF INSTR. 
** 
; “REAR AREEAERAAEAAAAKERAEATEAAKAAREARARAARAARAEARAARAREEERAREREKRAEEEEKREAEE 
18140: SCOPE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #TTBTP1.R1 =SET UP THE DATA BUFFER 
MOV #TTBTP2.RO 
MOV #4 R2 
1$: MOV (RO) +, (R1)+ 
SOB R2, 
MOV #TTBTP1,RO 
BIC #100000.(RO) § :MAKE OPERAND POSITIVE. 
MOV #TTB2,aASTMP2 
MOV #000,R1 sSET FD. 
LDFPS RI 
TTB2: NEGF (RO) + : TEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV #TTBTIP1,R1 >IS THE RESULT CORRECT. 
MOV #TTBTP2.R2 
MOV #4 
1$: CMP (R1)+, (R2)+ 
BNE 1TB10 -BR/.iCH IF INCORRECT. 
SOB R3,1$ 
CMP A#TTBTP1+4.RO  :IS RO CORRECT 
BNE TTB15 “BRANCH IF INCORRECT. 
CMP #010,R5 *1S THE FPS CORRECT? 
BNE TTB20 “BRANCH IF INCORRECT. 
BR TTBDONE 
: THESE ARE DATA TABLES AND A DATA BUFFER. 
TTBTIP1: 023245 
26720 
122324 
52672 
TTBTP2: 123245 
26720 
122324 
52672 
:REPORT RESULT INCORRECT 
TTB10: MOV #TTBIP1 .ae$TMP3 
MOV ATTBTP2 aS TMPS 
1$: ERROR 1 =BAD DATA 
BR TTBDONE 
REPORT RO INCORRECT: 
TTB15: MOV #TTBTP1+4,a#$TMP3 
MOV RO, a*STMP4 
1$: ERROR 1 :SPEC DESTX ROX 
BR T TEDONE 





CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


eeeseTeeEs SReEe Rees 


RRRRRARRAO 
WONAULWN—O 


GERERERRER 


014712 
014714 


012737 
010537 
104001 


104413 


170727 
005201 
005201 


105201 
005201 


005201 
005201 


12-MAR~80 07:22 


000010 
001242 


014770 
014716 
000004 


014716 
100000 
014714 
000200 
005201 


014716 
014770 
000004 


000003 
000210 


MACY11 30A(1052) 
T40 


001240 


014716 
001236 


005201 


M 6 
12-MAR-80 07:25 PAGE 1-60 
SPECIAL DEST, FLOATING MODE 2, TEST 


;REPORT FPS INCORRECT: 
MOV 


#010, —- 
5. a#STMPS 


:GO INITIALIZE THE FPS AND STACK; AND 


7SEE IF THE USER HAS EXPRESSED 
: THE ca RE TO CHANGE THE 


;THE USER TYPED CONTROL G?) 


PITIII ITIL TILL LLL LLL LLL LLL LTE ELL LLL ike 


SPECIAL DEST, MODE2, GR7 (IMMEDIATE), TEST 


THIS IS A TEST OF THE NEGF ABSF AND Sg DESTINATION FLOWS 


E 2¢ IMMEDIATE) USING THE NEGD INSTR 


SRAAEAARRAERKRAAAEAKAEAEAAERAAERARKEKAARKARAEKERAEEAKREKKRARARARERRERRE 


T7820: 

1$: 

TTBDONE : 
RSE TUP 

: TEST 41 

eae 

TST41: SCOPE 

UUB1: 
LPERR 
MOV 
MOV 
MOV 

1$: MOV 
SOB 
MOV 
Bic 
MOV 
MOV 
LDFPS 
CLR 

UUB2: 

UUBTP1: 


NE GD (R7)+ 
5201 ,5201,5201 ,5201 


;SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE DATA BUFFER. 


HUUBTP2 ,RO 
AMUUBTP1 RI 


(RO)+, (R1)+ 


R 
#UUBTP1 ,RO 
;MAKE THE OPERAND POSITIVE. 


T 
R1 
; TEST INSTRUCTION. 


sNOTE THAT Naa” ye ade THIS a ee R1 SHOULD CONTAIN 35. 


1$: 


GE ° 
:I1S THE RESULT CORRECT. 


#UUBTP1 .R3 

MUBTP2. “R2 

{R54 (R2)+ 

UB 10 :BRANCH IF INCORRECT. 

#3.R1 :WAS R1 INCREMENTED CORRECTLY. 
UUB15 “BRANCH IF INCORRECT. 

#210,R5 “1S THE FPS CORRECT? 

uB20 “BRANCH IF INCORRECT. 

UUBDONE 


; THESE w DATA TABLE. 


UUBTP? : 


105201 


5201 
5201 
5201 


SOF TWARE 
CONSOLE SWITCH oC (HAS 


SEQ 0077 


CJKDDB KEF11-A DIAG PART 


CJKDDB.P11 

2630 
2631 015000 
S026 015006 
2655 015014 
2634 015016 
26355 
26 
$6 7 0150 

38 01 
2639 015032 
2640 0150 
2641 
264 
264 15036 
2644 015042 
2645 015044 
2646 015050 
2647 015054 
2648 015056 
2649 015062 
2650 
2651 015064 

(1) 015064 

(1) 

(1) 

(1) 

(1) 
2652 

(3) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 015066 
2653 015070 

(1) 015070 
2654 015072 
2655 015076 
2656 015102 
2657 015106 
2658 015110 
2659 015112 
2660 015116 
2661 015124 
ra! 015132 
2665 015136 
2664 
2665 015140 
2666 015142 
2667 
2668 015146 
2669 015150 
2070 015152 
2671 015154 
2672 015160 


012737 
012737 
0400 


a 
Ss 


Oooo°oe°0°o => 


RS 
S 
a8 


12-MAR-80 07:22 


014716 
014770 


000210 
001242 


000003 


014720 
001240 


001242 


015214 
015224 
00000 


010013 
100000 
015142 
000200 


005201 


MACY11 30A(1052) 
141 


001240 
001242 


001240 


;REPORT 


UUB10: 


1$: 


N 6 
12-MAR-80 07:25 PAGE 1-61 
SPECIAL DEST, MODE2, GR7 (IMMEDIATE), TEST 


RESULT INCORRECT: 

MOV MUUBTP1 ,aa#STMP3 

MOV HUUBTP2 , aS TMPS 

ERROR 1 sBAD DATA 

BR UUBDONE » 

FPS INCORRECT: 

MOV #210,a4STMP3 - 

V R5,@4STMP4 

ERROR FPS 

BR UUBDONE 

PC INCORRECTLY INCREMENTED DURING EXECUTION. 

SUB #3,R1 

ASL R1 

MOV MUUBTP1+2,R2 

MOV R2, a#STMPS 

SUB R1,R 

MOV R2,a4STMP4 

ERROR 1 :PC BAD CONSTAND B GR7X 

RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
*VIRTUAL CONSOLE SWITCH REGISTER (HAS 


“THE USER TYPED CONTROL G?). 


SERRA EEKEEREEEAEEKEKEAAAEAEKEKREKRKEEEEKKEKEKKEAAEEEEREKREKKKKEK 


“*TEST 42 


SPECIAL DEST, MODE 6, TEST 


** 
:*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 6 USING THE NEGD INSTR. 

** 


* 
© REAR AEKEAEKKEREREKCAEKEAEREEEAKKEEREEEKERERKEREKEEKREEREREEREKEEEEREKE 


°, “62: 
Kaol: 


1$: 


XXB2 : 


SCOPE 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #XXBTP1,RI *SET UP THE DATA BUFFER. 

MOV #XXBTP2 -RO 

MOV #4 R 

MOV (RO)+,(R1)+ 

S0B a‘ 

MOV #XXBTP1~-5201,RO 

BIC #100000, a#XXBTP1:MAKE OPERAND POSITIVE. 

MOV #XXB2 , AASTMPZ 

MOV #200,R1 :SET FD. 

LDFPS RI 

CLR R1 

NEGD  5201(RO) : TEST INSTRUCTION. 

STFPS RS :GET FPS. 

BNE XXB25 :WAS THE PC CORRECT AFTER EXECUTION? 
MOV #XXBTP1.R1 :1S THE RESULT CORRECT. 
MOV #XXBTP2_R2 


SEQ 0078 


7 
CJKDDB KEF11-A DIAG PART MACY11 30A(1052) oplt in ott 07:25 PAGE Ine 


CJKDDB.P11 12=MAR-80 07:22 142 AL DEST, MODE 6, TEST SEQ 0079 
73 0151 01270 000004 MOV 
74 O13! 0201 1$: CMP {Rid*, (R2)* 
75 0151 BNE XXB10 BRANCH IF INCORRECT 
7G 015174 9 SOB 2StséRRS 1S 
01517 022 010013 CMP §- #XXBTP1-5201.RO 1S RO CORRECT. 
78 015 BNE XXB15 :BRANCH IF INCORRECT. 
7? 015 022 000210 CMP Ss #210, RS “1S THE FPS CORRECT? 
015210 001040 BNE XxB20 “BRANCH IF INCORRECT. 
1 015212 BR XXBDONE 
seas ; THESE ARE_DATA TABLES AND A DATA BUFFER. 
015214 023245 KXBTP1: 023245 
5 015216 026720 26 
015 20 122324 122324 
7 015222 052672 52672 
015224 123245 XXBTP2: 123245 
015 026720 26720 
2690 0152 122324 122324 
2691 015232 052672 52672 
5698 
$004 ;REPORT PC INCORRECT AFTER EXECUTION. 
2695 015234 012737 015144 001242 xB25: MOV  #XXB2+2,aeSTMP4 
26% 015242 012737 015146 001240 MOV #XXB2+4 , AAS TMPS 
2697 015250 104001 1$: ERROR 1 :PC NOT INCREMENTED BY 2. 
2698 015252 000425 BR XXBDONE 
2700 ;REPORT RESULT INCORRECT: 
2701 015254 012737 015214 001240 kxXB10: MOV  #XXBTP1,a#STMP3 
2702 015262 012737 015224 001242 MOV § #XXBTP2.a#STMP4 
2703 015270 104001 1$: ERROR 1 BAD DATA 
3704 015272 000415 BR XXBDONE 
2706 <REPORT RO INCORRECT : 
3707 015274 012737 010013 001240 XxB15: #XXBTP1-5201 , a#STMP3 
708 015302 010037 001242 MOV RO, avSTMP4 
2709 015306 104001 1$: ERROR 1 ;SPEC DESTX ROX 
3710 015310 000406 BR XXBDONE 
erie 
271 ;REPORT FPS INCORRECT: 
2714 015312 012737 000210 001240 KxB20: MOV #210 a#STMP3 
2715 015320 010537 001242 MOV R5, avSTMP 
3716 015324 104001 1$: ERROR 
2718 015326 XXBDONE : 
(1) 015326 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) “SEE IF THE USER HAS EXPRESSED 
(1) STHE DESIRE TO CHANGE THE SOF TWARE 
(1) VIRTUAL CONSOLE SWITCH REGISTER (HAS 
$12 :THE USER TYPED CONTROL G?). 
2720 FREAK EKREEEEREEREREEEEEKKKEREEREAEARAREERAEREREEAERAREKREARRR ERE 
(3) : TEST 43 SPECIAL DEST, MODE 7, TEST 
(4) “THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


(4) 
(4) 


MINMINIMININNINPo NUT 
PININET NIN TOTO 
VMSWYHNe ew 


ASISVS 


rronronnonr 
peer 


AS ta 
ANOS 
“Ovo 


015410 
015412 


015416 
01 


a 
Rss 
=—MOo— 


oouW 


016737 
016737 
104002 
000425 


012737 


12-MAR~80 07:22 


015464 
015474 
000004 


010303 
4 E>. 


00000 
015412 
000200 
005201 


015464 
015474 
000004 


0103503 
000210 


177702 
177676 


;REPORT 
015464 001240 YYB10: MOV 
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001242 
001240 


7 
12-MAR~80_ 07:25 “ DAGE 1-63 
SPECIAL DEST, MODE 7, TEST 


; SMODE 7 USING THE NEGD INSTR. 


Ed SEY eT 8 RT ee 


1ST43: SCOPE 

YYB1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #YYBTP1,R1 =SET UP THE DATA BUFFER. 
MOV #YYBTP2.RO 
MOV #4R 

1$: MOV (RO) +, (R1)+ 
SOB R2, 
MOV #YYBTP3-5201,R 
MOV #YYBTP1, 501 (ROD 
BIC #1 BTP1 :MAKE THE OPERAND POSITIVE. 
MOV #YYB2, av$TMP2 
MOV #200,R1 <SET FD. 
LDFPS RI 
CLR R1 

YYB2: NEGD  @5201(RO) : TEST INSTRUCTION. 
STFPS RS :GET FPS. 
TST R1 “WAS THE PC CORRECT AFTER EXECUTION? 
BNE YYB25 
MOV #YYBTP1.R1 :1S THE RESULT CORRECT. 
MOV #YYBTP2.R2 
MOV #4, 

1$: CMP (R1)+, (R2)+ 
BNE YYB10 :BRANCH IF INCORRECT. 
S0B R3,1$ 
CMP #YYBTP3-5201,RO :1S RO CORRECT. 
BNE YYB15 “BRANCH IF INCORRECT. 
CMP #210.R5 ‘IS THE FPS CORRECT? 
BNE YYB20 “BRANCH IF INCORRECT. 
BR Y YBDONE 

: THESE ARE DATA TABLES AND A DATA BUFFER. 

YYBTP1: 023245 
26720 
122324 
52672 

YYBTP2: 123245 
26720 
123324 
52672 

YYBTP3: YYBTP1 

REPORT PC INCORRECT AFTER EXECUTION. 

YYB25: MOV YYB2+2,a#STMP4 
MOV YYBSe4, avSTMP3 

1$: ERROR 2 :PC NOT INCREMENTED BY 2. 
BR YYBDONE 


RESULT INCORRECT: 
#YYBTP1 ,a#STMP3 


SEQ ‘id 
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CJKDDB .P1 


MroNoNsMNonnonononhor 
SSSIISRARAVASIIIOS 
gece 
See 


Nm 
3 
Ww Ae ewe ee 


as! 
LN 


(4) 


~SBBRVVVSS 
ee eed eed eed eed aed ed 
~ O@\Vyunf wh) 


¢ 3 
REY 


Ne 


4 ng: 
oO 


015632 
015634 
015636 


ee ecoeseeses 
Be ReRresee 
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012737 015474 
10400 


012737 
010037 
104002 
000406 


012737 
010537 
104002 


104413 


000634 
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001242 


001240 


001240 


D 7 
opltin ont 07:25 a 


AL DEST, MODE 7 
MOV #YYBTP2 ,aA#STMP4 
18: ERROR 2 ;BAD DATA 
BR Y YBDONE : 
;REPORT RO INCORRECT: 
YYB15: MOV #YYBTP3-5201, @FSTMPS 
V 0, a4STMP4 
1$: ERROR ;SPEC DESTX ROX 
BR Y YBDONE 
REPORT FPS INCORRECT: 
1¥B20: MOV #210,a4STMP3 
MOV R5 ,@4STMP4 
1$: ERROR 
Y YBDONE : 
RSETUP 3:GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
Bi’ DESI OF TWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 
© He EERE ERERERERE ER ERERERRERERREREREREREREREREEE ERE 
“STEST 44 NEGD, ABSD AND TSTD TEST 


+ 
ila IS A TEST OF THE NEGD ABSD AND TSTD INSTRUCTIONS. 


cei piiiaaddianiaetiiahdaeiaatineaaeintneesEbeteseenesens 


TST44: 


SCOPE 
i NEGD WITH POS NONZERO OPERAND 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,NATSUB 


1$: 0 : FLAG=NEGD. 
23: 16341 ; OPERAND. 
55772 
21133 
55447 
3$: 116341 ;RESULT. 
55772 
21133 
55447 
4$: 16341 sERROR RES. 
55772 
21133 
55447 
5$: 207 sFPS BEFORE EXECUTION. 
210 sFPS AFTER EXECUTION. 
a A FPS. 
6$: pa Se :E10<---E10*200x ST 336 
7§ ERROR 2 :BUT ENBT ST 336X WENT TO 053 INTO 455 
A ty NEGD WITH NEG OPERAND. 
{ PERR ;SET UP THE LOOP ON ERROR ADDRESS. 


CJKDDB ies DIAG PART 
12-MAR~80 07: 


CJKDD8.P11 
2 015664 
1 01 2008 
4 0156 
015674 
4 015676 
5 015 
015702 
7 IFA: 
2 15706 
2 015710 
2 015712 
1 015714 
2832 015716 
015720 
015722 
ae 
a Sars 
2838 015732 
2839 015734 
2840 015736 
2841 015740 
2842 
2843 015740 
(1) 015740 
2844 015742 
2845 015746 
2846 015750 
2847 015752 
2848 015754 
2849 015756 
2850 015760 
2851 015762 
2852 015764 
28535 015766 
2854 015770 
2855 015772 
2856 015774 
2857 015776 
2858 016000 
2859 016002 
2860 016004 
se) Siete 
28635 016012 
2864 016014 
2865 016016 
2866 
2867 016016 
(1) 016016 
2868 016020 
se Slee 
2871 0160 
sors 016032 
2875 016034 


004 767 


000556 
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3$: 
4$: 
5$: 


6$: 


. F 
12-MAR-80 07:25 PAGE 1-65 


. ABSD AND TSTD TEST 


SR PC ,NATSUB 


Ww 


ae pies 


BR 
ERROR 2 


;FLAG=NEGD. 
SOPERAND. 


sRESULT. 
;ERROR RES. 


:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
et FPS. 

*E10<=--E10*200K $336 


;BUT ENBT X ST336 TO 453 INTO 053 


7$: 
: TEST ABSD WITH POSITIVE OPERAND 
WW 3 : 


LPERR 
JSR PC ,NATSUB 


1$: 1 

23: 60705 
124735 
60124 
73560 

3$: 705 
124735 
60124 
3560 

4$: 160705 
124735 
60124 
73560 

S$: 217 
200 
“v 

6$: ERROR 2 
BR 7$ 

- ERROR 2 

: TEST ABSD WITH NEG. OPERAND 

WWBS : 
LPERR 

1? im PC ,NATSuUB 

2$: 154345 
76567 
32123 
43234 


;SET UP THE LOOP ON ERROR ADDRESS. 
;FLAG=ABSD. 
; OPERAND. 


ERROR RES. 


FPS BEFORE EXECUTION. 
SFPS * EXECUTION. 


ERROR F at 

sEITHER 

:BUT ST O55 TO. 336 INTO 335 

OR BUT ENBT ST 335 TO 452 INTO 052 


;SET UP THE LOOP ON ERROR ADDRESS. 
;FLAG=ABSD. 
OPERAND. 





SEQ ‘ed 


——— 
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CJKDDB.P11 12-MAR-80 07:22 
874 016036 054345 
875 016040 076567 

2876 016042 0 ie 
2877 016044 04 
2878 01 154345 
5880 916052 053105 
a8) 016056 043254 
016056 000217 
016060 oopse’ 
016062 17 
2885 016064 177777 
oan 016066 104002 
7 016070 01 
2888 016072 104002 
2889 016074 
2890 
2891 016074 
(1) 016074 104414 
2892 016076 004767 000344 
2895 016102 2 
2894 016104 Het: 
2895 016106 045654 
2896 016110 070107 
2897 016112 034543 
2898 016114 012321 
2899 016116 045654 
2900 016120 070107 
2901 016122 034543 
Sons 016124 112321 
290 pieles 045654 
2904 0161 070107 
2905 016132 034543 
2906 016134 90021 
2907 016136 000 
2908 016140 000210 
2909 016142 177777 
2910 016144 104002 
2911 016146 000401 
$31$ 16150 104002 
2915 016152 
2914 
2915 016152 
(1) 016152 104414 
2916 016154 004767 000266 
2917 016160 2 
2918 016162 123765 
2919 016164 023407 
2920 016166 034510 
2921 016170 045621 
2922 016172 123765 
2925 016174 023407 
2924 016176 034510 
2925 016200 045621 
2926 016202 0235765 
2927 016204 023407 
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3$: 
4$: 
5$: 


6$: 


7 
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NEGD, ABSD AND TSTD TEST 


ERROR 2 


7$: 
: TEST WITH POSITIVE OP 
WWB5 : 


3$: 


4$: 


5$: 


* 6§: 


RR 
JSR PC ,NATSUB 


7$: 
: TEST TSTD WITH NEG OP 
WWB6 : 


3$: 


4$: 


LPERR 
JSR PC ,,NATSUB 


SEQ 0083 


sRESULT. 


;ERROR RES. 


FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
;ERROR FPS. 


3E10*E10*200x ST 452 


;SET UP THE LOOP ON ERROR ADDRESS. 


;FLAG=TSTD. 
OPERAND . 


;RESULT. 
;ERROR RES. 


;FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
ERROR FPS. 


:;BUT (OP1B) X ST044 TO 336 INTO 334 
;BUT ENBT ST 334 TO 453 INTO 053 


;SET UP THE LOOP ON ERROR ADDRESS. 
;FLAG=TSTD. 
OPERAND . 


sRESULT. 


;ERROR RES. 


CJKDDB 
2928 
soz. 
3938 
29 
3 5 
3957 
2938 


2939 
(1) 


POR 


K 
CJKDD8.P 


11-A 


~ rn 


AXAOAO 
LOOP P LES. 
dt 


DIAG PART 
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079239 


4 
004767 000210 
000002 


4 
004767 000132 


040205 
0 


040214 
140214 
177777 


G 7 
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766 NEGD, ABSD 


AND TSTD TEST 
510 
45621 
S$: 207 
210 
st 
6$: ERROR 2 
BR 7 
ERROR 2 
7$: 
: TEST TSTD O OP 
WWB 7 : 
LPERR 
‘a JSR PC ,.NATSUB 
2$: 75 
176737 
71727 
37574 
3$: 75 
176737 
1727 
37574 
4$: 0 
0 
0 
0 
S$: 200 
204 
= 
6$: ERROR 2 
BR 7$ 
ERROR 2 


7$: 
;TEST TSTD -O OP FIUVv=0 
WWBB : 


LPERR 
JSR PC ,NATSUB 
1$: 2 
2$: 100123 
21012 
34565 
43210 
3$: 100123 
21012 
34565 
43210 
4$: 0 
0 
0 
0 
S$: 4020 
040214 
140214 


1-67 


— 3FPS BEFORE EXECUTION. 
sFPS y fhe EXECUTION. 


; ERROR 


;BUT OPB1 ST 055 TO 335 INTO 334 
;BUT ENBT ST 334 TO 053 INTO 453 


;SET UP THE LOOP ON ERROR ADDRESS. 


:FLAG=TSTD. 
; OPERAND. 


;RESULT. 


ERROR RES. 


;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
;ERROR FPS. 


;BUT OP1B ST 255 TO 311 OR 312 INTO 310 
;BUT ENBT ST 310 TO 402 INTO 002 


;SET UP THE LOOP ON ERROR ADDRESS. 


>FLAG=TSTD. 
; OPERAND. 


sRESULT. 


;ERROR RES. 


;FPS BEFORE EXECUTION. 
. tbe EXECUTION. 


SFPS 
;ERROR F 


SEQ 0084 


On 
Se Se 
Se 
Be 
Ux 
-m 
— 
a 
ws 
J 
b 


¥ 


ed eed ced od 


> 2 


PRURRER I oe). 
SEYERRYS SENSRRLSAN 


: 


SESE EE EET: 


OOOCoCeCocoeoO COOCOOCOOO 
SSIS S SSSR SSS Ss 


RRS 


ee ee ee ee ceed eed eed ed ed eed eed ed ed od) oe) od 
MNO 


nd aed ed dd 


SSSSSSHSSSSS 
Beeccceocsese 


Se ae US Seu 


SSS 
RAK 
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12-MAR~80 07:22 Tats NEGD, ABSD AND TSTD TEST 
104002 6$: ERROR 2 s* 
000401 BR 7$ 
104002 - ERROR 2 . ;BUT Fluv ST 257 TO 355 INTO 255 
aT y TSTD -O OP FIUV=1 

104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
004767 000054 JSR PC ,NATSUB 
ale 1$: 2 sFLAG=TSTD. 
1001 2$: 100137 ; OPERAND. 
024613 24613 
0 A 57024 

137 60137 
100137 3$: 100137 sRESULT. 
024613 24613 
057024 57024 
060137 60737 
000000 4$: 0 ;ERROR RES. 
000000 0 
000000 0 
000000 0 
044200 5$: 44200 FPS BEFORE EXECUTION. 
144214 144214 FPS 7 ibe. EXECUTION. 
044214 044214 ; ERROR F 
000014 14 
104002 6$: ERROR 2 7* 
000401 BR 7$ 
104002 - ERROR 2 BUT FIUV ST 257 TO 255 INTO 355 
000167 000414 JMP WwiBDONE 


;THIS SUBROUTINE, NATSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
TOIT Le MADE HS: AN ABSD OR A NEGD INSTRUCTION AND CHECK THE RESULTS. A CALL 


; JSR PC ,@4NATSUB 

; FLAG: WORD xX : INSTRUCT ION TYPE FLAG. 
; ACARG: .WORD X,X,X.X RAND 

; RES: . .WORD X,X,X.X ; EXPECTED RESULT 

; ERRES: .WORD X,X,X,X RESULT 

; FPSB: .WORD X :FPS BEFORE EXECUTION 
; FPSA: .WORD X :FPS AFTER EXECUTION 
; FEC: -WORD X ZEXPECTED FEC 

; ERFPS: .WORD X A: . 

; 1: ERROR 2 DATA ERROR. 

; BR CONT 

; ERR2: ERROR 2 FPS ERROR. 

: CONT: :RETURN ADDRESS 


“THE OPERAND IS SET UP IN NATBF1. THEN 
“THE EITHER THE TSTD, NEGD OR ABSD INSTRUCTION IS EXECUTED. 
;NATSUB USES THE FIRST OPERAND AS A FLAG TO DETERMINE WHICH INSTRUCTION 
-1S TO BE EXECUTED: 0 = NEGD, 1 = ABSD, STD 
“THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
“COMPARED WITH FPSA. IF THIS TOO IS CORRECT NATSUB RETURNS CONTROL 


wus BR 
RPRRGES Se 


sree ereReRsenaresersrrry: 


DR 


-~rn 


olelelelelelelelele) = 
pane ner ee eee Pe ee ee ee Pe ee ee ee 


Pees RRSERENES 


EVSRRS 


016574 


eeeogeegegeegeeese9 
oO 
REeees resent 
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FIA 
ond ond 
Vue 
S30 
WwnNn— 


000002 
017050 
000004 


000032 
017050 


016526 
001236 


000002 
001240 
000010 
001244 
017050 
001250 
000034 
000012 
017050 
000004 
000034 
000034 
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GD, ABSD AND TSTD TEST 


:TO THE CALLING ROUTINE AT CONT IF THE FPS IS BAD NATSUB 
“COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN NATSUB WILL RETURN 
:TO THE ERROR CALL AT ERR2, OTHERWISE NATSUB ITSELF 
AND THEN RETURNS TO CON 


“REPORTS THIS FAILURE T. IF THE RESULT OF THE 
CTION ECT, THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE | 

THE RESULT IPATED CORRECTLY TO BE ERRES THEN NAT 

“WILL TRANSFER T RROR CALL AT ERR1. OTHERWISE THE 

SRESULT WAS INC T BUT WAS NOT ANTICIPATED AND NATSUB 


; INCORRECT BU WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


NATSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
MOV R1,R2 :COPY THE OPERAND. 
ADD #2.R2 
MOV #NATBF1.R3 
MOV #4,R 
1$: MOV (R2)+, (R3)+ 
SOB R4, 
MOV 32(R1) RO :LOAD THE FPS. 
LDFPS R 
V #NATBF1,RO :SET UP THE OPERAND ADDRESS 
MOV (R1).R2 =GET THE FLAG TO DETERMINE WHICH 
ASL R2 = INSTRUCTION TO EXECUT 
ASL R2 70 = NEGD, 1 = ABSD, 2 = TSTD 
MOV #NATINS R3 
ADD R2,R 
MOV R3. avSTMP2 
JMP (R3) :GO EXECUTE THE INSTRUCTION. 
NATINS: NEGD (RO) 
BR 2$ 
ABSD (RO) 
TSTD _— (ROD 
2$: STFPS RG :GET THE FPS. 
STST —RS “GET THE FEC. 
MOV R1,R2 
ADD #2.R2 
MOV R2. aASTMPS 
#10,R2 
MOV R2,an$T 
MOV #NATBE | -a#'STMPS 
MOV 4, a4STMP 
MOV SiR av$TMP10 
MOV RO :WAS THE RESULT CORRECT? 
ADE W15 RO 
MOV #NATBF 1,R2 
MOV # 
3s: CMP (RO)+, (R2)+ 
BNE 10$ :BRANCH IF INCORRECT. 
SOB R3,35$ 
CMP 34(R1)R4 ;WAS THE FPS CORRECT? 
BNE CH IF INCORRECT. 
Ist 54(R1) “JF THE EXPECTED FPS WAS NEGATIVE CHECK THE FEC. 
L 


SEQ 0086 


B3e39eS 


WN NWAANAAAAS 
Oooooc0ceoocoo0o 


me ee ee De ee ee ee ee ed eed eed eed eed eed 


WNWAAWAAAAA 
DNRAR GAS GOVRARUN FSBO NOUR SOODNAMNR WA OSRURAR AES 


Ww 
—_ 


WIN IANIANIANIANI IAAI AAA AAAI AAAI AO A 
a Se Sl Sia el Del at ae Sl ak el a ee Dal ak ak at ak ee a ae ee et ee 
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016646 
016652 
016654 


2a I I I 
SBSSSSSE RRS 
—_—— ~ 

NO rn 


026105 
001037 
000161 


011105 


026105 
001002 


000161 
011102 
006302 

302 


006 
062702 
000112 


016137 
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000040 
000050 


017000 


000022 
017050 
000004 
000042 


000036 


000046 


017016 


000040 
001254 


017032 


000050 


MACY11 30A(1052) 
144 


7 
a 07:25 ’ PAGE 1-70 


- ABSD AND TSTD TEST 
CMP 40(R1),R5 :WAS THE FEC CORRECT. 
BNE ;BRANCH IF INCORRECT. 
4$: JMP 0(R1) RETURN. 


7THE RESULT WAS INCORRECT BUT WAS THIS FAILURE ANTICIPATED? 
jaee IF THE RESULT WAS ANTICIPATED: 


(R1),R5 


R5 
ASL 5 
ADD #NATER1,R5 
MOV R1.RO 
ADD #22 ,RO 
MOV #NATBF1,R2 
MOV #4,R 
11$: CMP (RO) +, (R2)+ 
BNE :BRANCH IF NOT ANTICIPATED. 
S08 R3,11$ 


;THE ERROR WAS ANTICIPATED SO RETURN. 
JMP 42(R1) 


; THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
12$: JMP (R5) :GO TO THE PROPER ERROR CALL. 


; THE FPS WAS INCORRECT. 
15$: CMP 


ila R5 :WAS THIS ERROR ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 
;THE FPS ERROR WAS ANTICIPATED SO RETURN. 
JMP 46(R1) 


;THE FPS FAILURE WAS NOT ANTICIPATED SO REPORT IT HERE. 
168: MOV (R1) ,R2 


ASL Re 
ADD #NATER2 ,R2 
JMP (R2) :GO TO THE PROPER ERROR CALL. 


“REPORT THAT THE FEC WAS INCORRECT. 

20$: MOV 40(R1) ,a#$TMP12 
MOV RS, a#STMP7 1 

MOV (Ri) .Re 


ASL R2 
ADD #NATERS,R2 
JMP (R2) :GO TO THE PROPER ERROR CALL. 
; THESE ARE THE ERROR CALLS FOR EACH INDIVIDUAL INSTRUCTION AND CONDITION. 
NATER1: ERR ;NEGD BAD DATA 
NATRET 
ERROR 2 ;ABSD BAD DATA 
NATRET 
ERR ;TSTD BAD DATA 
NATRET: JMP 50(R1) 
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CJKDDB.P11 12-MAR~80 07:22 144 NEGD, ABSD AND TSTD T SEQ 0088 

3149 A tg 

3150 017016 104002 TER2: “2 sNEGD FPSX 

3151 01 000774 BR NATRET 

3128 Sons ERROR 2 ;ABSD FPSX 

315 00077 BR NATRET 

3154 104002 ERROR 2 sTSTD FPSX 

3155 770 BR NATRET 

3156 

3157 sFEC INCORRECT: 

3158 104002 NATER3: ERROR sNEGD FECX 

3159 000766 BR NATRET 

3160 104002 ERROR 2 sABSD FECX 

3161 000764 BR NATRET 

a108 104002 ERROR sTSTD FECX 

e1cz 000762 BR NATRET 

3165 017046 177777 -WORD -1 

3166 017050 177777 177777 177777 NATBF1: .WORD <=1,-1,-1,-1,-1 

3167 017056 177777 177777 

3168 017062 ONE : 
(1) 017062 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) sSEE IF THE USER HAS EXPRESSED 
(1) : THE DESIRE TO CHANGE THE SOFTWARE 
(1) ;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
(1) ;THE USER TYPED CONTROL G?). 

3169 

3170 

3177 

3178 SRR EEE EEE ERE EEE EERE EERE RERREREREEEEREEEEREEEEEKEEEKE 
+ ¢ : #TEST 45 SOURCE MODES, MODE 1 (FL=0), TEST 
(4) te THIS IS A TEST OF SOURCE MODE 1 
CO} :* USING THE LDFPS INSTR 

. 

(3) PETIT iti tii iititititiiiitiiitiititiititittitittiiiiiii iit ie iis. 
(2) 017064 000004 TST45: SCOPE 

3179 

3180 

3181 017066 AAC1: 

3182 017066 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 

3183 017070 012700 017146 MOV CTP1 :SET UP TEST DATA IN BUFFER. 

3184 017074 012710 147517 MOV #147517. 

3185 017100 012737 147517 001240 MOV oes £ * SNS TMP3 sSAVE DATA IN CASE OF ERROR. 

3186 017106 012737 017122 001236 MOV HAAC? ,aASTMP 

3187 017114 012737 017206 000004 MOV  #AAC20,@MERRVECT ;SET UP FOR TRAPS TO 4. 

3135 017122 170110 AAC2: LDFPS (RO) ;TEST INSTRUCTION. 

$1 017124 170205 STFPS = R5 sGET FPS 

s108 0171 020027 017146 CMP RO, AAACTP 1 :I1S RO _—" 

$15 0171 001007 BNE AAC10 :BR IF 
194 017134 022705 147517 CMP #147517,R5 71S FPS CORRECT? 

3195 017140 001013 BNE AAC11 :BR IF NOT. 

3196 017142 000437 BR AACDONE 


7 
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72 
CJKDDB.P11 12-"'R-B0 07:22 T45 SOURCE MODES, MODE 1 (FL=0), TEST SEQ 0089 
3197 
3198 : TEST BUFFER AND DATA: 
3199 017144 177777 ~ 
017146 147517 AACTP1: 147517 
1 017150 177777 -1 
zREPORT RO INCORRECT. 
afar 3 012737 017146 001240 AAC10: MOV HAACTP1 ca 
5 0171 010037 001242 MOV RO,a4STMP 
017164 104001 1$: ERROR 1 :RO BAD BUT FSRC FAILED 
017166 000425 BR AACDONE 
s;REPORT FPS INCORRECT. 
10 017170 012737 147517 001240 AAC11: MOV #147517, Q@A4STMP3S ;REPORT FPS INCORRECT. 
11 017176 010537 001242 MOV R5,a4STMP4 
$516 017 104001 1$: ERROR 1 
7 017204 000416 BR AACDONE 
15 > TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
16 = EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
17 = FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
3218 017206 AAC20: 
3219 osye 011602 MOV (SP) ,R2 
$559 017210 020227 017124 CMP R2 ,AAAC2Z+2 
$5 1 017214 001405 BEQ 
$$ 017216 020227 017126 CMP R2,AAAC2+4 
32 017222 001402 BEQ 1$ 
3224 017224 000137 036166 JMP @4CPSPUR 
25 017230 022626 1$: CMP (SP)+, (SP)+ 
26 017232 010237 001236 MOV R2,a4$TMP2 
27 017236 104001 © 2$: ERROR ;0DD ADRES 
$555 017240 000400 BR AACDONE sBUT FDSTX IN ST 771 
33% 017242 AACDONE : 
(1) 017242 104413 RSETUP 3;GO INITIALIZE THE FPS AND STACK; AND 
(1) ;SEE IF THE USER HAS EXPRESSED | 
(1) vik DESIRE TO CHANGE THE SOF TWARE 
(1) VIRTUAL CONSOLE SWITCH REGISTER (HAS 
(1) > THE USER TYPED CONTROL G?). 
$3. 
323 DRO IISIISIOI IIDC IOITIO ISO ICUOOIOIIIOIOU III DEE ikki tit 
4 :*TEST 46 SOURCE MODES, MODE 2 (FL=0), TEST 
:* 
(4) is THIS IS A TEST OF SOURCE MODE 2 
+4 :* USING THE LDFPS INSTR 
;® 
(3) PETTITT tt tii tii ttt iti iitiiittiiiiiiiiiiiiiiiitiiiiiii iii 
(2) 017244 000004 TST46: SCOPE 
3536 017246 BBCi: 
oy 017246 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
353 017250 012700 017326 MOV #BBCTP1,RO :SET UP TES? DATA IN BUFFER. 
3238 017254 012710 145212 MOV #145212, (RO) 
3239 017260 012737 145212 001240 MOV #145212, a4$TMP3S ;SAVE DATA IN CASE OF ERROR. 


—— 


CJKDDB KEF11-A DIAG PART 
12=-MAR~80 07:22 


CJKDDB.P11 


58 


RORSRORDAGAOAD 
OURS 


Vi 
oO 


01 
017274 


017302 


012737 
015737 


011602 
020227 
001405 


020227 
ees 


00013 

022626 
010237 
104001 


104413 


017302 
017366 


017330 
145212 


017330 
001242 


145212 
001242 


017304 


017506 
036166 
001236 


MACY11 Nee 
T46 


001236 
000004 


001240 


001240 


BBC2: 


: TEST BUFFER AND DATA: 


7 
nlf-o tone 07:25 "PAGE 1-73 


E MODES, 
#BBC2 


MODE 2 (FL=0), TEST 


MP2 
FAC 6 aRERRYECT :SET UP FOR TRAPS TO 4. 


(RO) + sTEST INSTRUCTION. 
R5 GET FPS 
Talat ‘1S 7 aes? 
#145212,R5 HIS THE FPS CORRECT? 
BBC11 :BR IF NOT. 

BBCDONE 


BBCTP1: ba al | 
sREPORT RO INCORRECT. 
BBC10: MOV WEBCTPT 2, ,a4$TMP3 
1$: ERROR 1 :RO BAD BUT FSRC FAILED 
BR BBCDONE 
RE FPS INCORRECT. 
BBC1 MOV #145212, a4STMP3S ;REPORT FPS INCORRECT. 
RS, a4STMP4 
1$: 1 
BR BBCDONE 


; TRAP HERE THROUGH VECTOR FOUR. 


SEE IF THE TRAP WAS DURING 


SEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
iFAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


(SP) .R2 
Re. ABBC2+2 


1$: 
2$: 


BBCDONE : 


R2 ,ABBC2+4 
1$ 


aAvcP 
(SP 


R2 $P33 (Sp 


4 (SP 


;ODD ADRES 
:BUT FDSTX IN ST 771 


:GO INITIALIZE THE FPS AND STACK; AND 

:SEE IF THE USER HAS EXPRESSED 

ih DESIRE TO CHANGE THE SOFTWARE 

Pe RTUAL CONSOLE SWITCH REGISTER (HAS 
'.¢ USER TYPED CONTROL G?). 


SEQ 0090 


7 
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CJKDDB mA, DIAG PART 2 MACY11 30A(1052) 1-74 
CJKDDB.P11 12-MAR-80 07:22 147 SOURCE MODES, MODE 4 (FL=0), TEST SEQ 0091 
1 TT TTITITLIELLLLLLILLILL LLL LULL LL LLL LLL LLL 
+ STEST 47 SOURCE MODES, MODE 4 (FL=0), TEST 
;* 
(4) + THIS IS A TEST OF SOURCE MODE 4 
4 ;* USING THE LDFPS INSTR 
* 
(3) ETitititiit iti ti titiittt iit iiiiitiiitititiiiiiiiiiitiiiti iii i sy, 
338) 017422 000004 TST47: SCOPE 
3538 017424 DDC1: 
(1) 017424 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
$536 OT 7788 012700 017516 MOV ADDCTP1+2 aie ;SET UP THE TEST DATA BUFFER. 
3296 017432 012760 105252 177776 MOV #105252,-2(R 
3297 017440 012737 105252 001240 MOV #105252, aes ThP3 ;SAVE DATA IN CASE OF ERROR. 
017446 012737 017462 001236 MOV +b C2, aa$TMP2 
017454 012737 017562 000004 MOV #DDC90 BHERRVEC 
3 17462 170140 DDC2: LDFPS =(RO) 
3301 017464 170205 STFPS  R5 
3 17466 020027 017514 CMP RO,ADDCTP1 
3303 017472 001015 BNE DDC 
3 017474 022705 105252 CMP #105252,R5 
3305 017 00102 BNE DDC11 
$209 017502 0004 BR DDCDONE 
17504 177777 177777 177777 -1,-1,71,71 
017512 177777 
017514 177777 DDCTP1: - 
017516 177777 177777 177777 -1,-1,°1,71 
3314 017524 177777 
3312 017526 012737 017514 001240 pDC10: MOV #DDCTP1 ,a#STMP3 
33135 0175 010037 001242 MOV RO, a4STMP4 
3314 017540 104001 1$: ERROR :RO BAD BUT FSRC FAILED 
3315 017542 24 BR DDCDONE 
3316 017544 0127357 105252 001240 DDC11: MOV #105252 .a4STMP35 ;REPORT FPS INCORRECT. 
3317 017552 010537 001242 MOV R5 ,a4STMP4 
3318 017556 104001. 1$: ERROR 
3319 017560 000415 BR DDCDONE 
3350 17562 011602 DDC20: MOV (SP) ,R2 
3321 017564 020227 017464 CMP R2,ADDC2+2 
$35 017570 001405 BEQ 
323 017572 020227 017466 CMP R2,ADDC2+4 
; 4 017576 00140 BEQ 1$ 
5 017600 000137 036166 JMP @4CPSPUR 
: 017604 022626 1$: CMP (SP) +, (SP)+ 
7 017606 010237 001236 MOV R2,a4$TMP 
3328 017612 104001 2$: ERROR 1 ;DDD ADRES 
3329 017614 DDCDONE : 
(1) 017614 104413 RSETUP 3;G0 eh ee THE FPS AND STACK; AND 
(1) sSEE IF THE USER HAS EXPRESSED 
(1) s THE DESIRE TO CHANGE THE SOF TWARE 
(1) VIR TUAL CONSOLE SWITCH REGISTER (HAS 
(1) ; THE USER TYPED CONTROL G?). 
3330 DGC DISIIOISIISIIOIOI SII IOIUIOIOIOINIOIIOIOOI IOI IIIS IIE I III IIIT ETE 
(3) “STEST 50 SOURCE MODES, MODE 35 (FL=0), TEST 


CJKDDB KEF11-A DIAG PART 


CJKDDB.P11 -12=MAR-B0 07:22 
(4) 
(4) 
(4) 
(4) 
(3) 
2) 017616 000004 
3331 017 
(1) 017620 104414 
3332 017622 012700 017724 
$3 017696 O12710 O17714 
017632 012767 103456 
$5 017640 012737 103496 
017646 012737 017662 
32 917654 010787 017772 
3338 017662 170130 
3339 017664 170205 
3340 017666 020027 017726 
3341 017672 001021 
3342 017674 022705 103456 
3343 01 001025 
3344 017702 50 
345 
3346 
3347 
3348 017704 177777 177777 
017712 177777 
3349 017714 177777 
3350 017716 177777 +177777 
3351 017724 017714 177777 
017732 177777 000000 
3352 
3353 
3354 
3355 017736 012737 017726 
3356 017744 010037 001242 
3357 017750 104001 
3358 017752 24 
3359 
3360 
3361 017754 012737 103456 
3362 017762 010537 001242 
3363 017766 104001 
3364 017770 000415 
3365 
3366 
3367 
3368 017772 011602 
$369 017774 020227 017664 
3370 020000 001405 
3371 020002 020227 017666 
$72 920006 901402 
020010 000137 036166 
3374 020014 022626 
3375 020016 010237 001236 
3376 020022 104001 
3377 020024 


MACY11 30A(1052) 
T50 


000054 
001240 
001236 
000004 


177777 


177777 
177777 


001240 


001240 


8 
12-MAR-80 07:25 SPAGE 1 -75 
SOURCE MODES, MODE 3 (FL=0), TEST 


** 
:* THIS IS A TEST OF SOURCE MODE 3 
** USING THE LDFPS INSTR 
**® 
*: s MePARARAAAAAAAASASLAALALALALAALALASAaALAaSRASLELALLE RSE LESSEE ERR ER ERR RAG 
TST SCOPE 
EEC}: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
V ECTBO. RO 
MOV oEEC (RO) 
MOV ri08456" EECTP1 
MOV #103456, * aNSTMP3 
MOV #EEC2,aASTMP2 
MOV #EECOO, @#ERRVECT :SET UP FOR TRAPS TO 4. 
FEC2: LDFPS a(RO : TEST INSTRUCTION. 
STFPS 5 ‘GET THE FPS. 
CMP RO,MEECTP2+2 IS RO CORRECT? 
BNE “BR IF NOT. 
CMP #103456,R5 71S THE FPS CORRECT? 
BNE EECT1 “BR IF 


BR EE CDONE 


: TEST BUFFER AND DATA: 


EECTP1: -1 
“1,-1.1 
EECTP2: EECTP1,-1,-1.-1, 


;REPORT RO INCORRECT. 


EEC10: MOV HEECTP2+2 ,a#STMP3 
MOV RO, aS TMP 
1$: ERROR 1 -RO BAD BUT FSRC FAILED 
BR EECDONE 
:REPORT FPS INCORRECT. 
EEC11: MOV #103456, arSTMP3 :REPORT FPS INCORRECT. 
* MOV RS. ,aaSTMP 


; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
sEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
iFAILURE. OTHERWISE GO GO TO THE SPURIOUS TRAP 70 4 HANDLING. 


CMP RS LWEEC2#2 
CMP Re -MEEC2+4 
SP) +, (SP)+ 

2, aASTMP2 


ca 


2$: ;DDD ADRES 
EE CDONE : 


SEQ 0092 


CJKDD8 ~ Ahmad DIAG PART 
CJKDOB.P11 


3409 


FEKEEEEELE 
WONOAOUSWN OO 


020024 


020112 
020114 


020116 
0 


104413 


1 
012737 
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020132 
0 


020030 
020174 
020130 
045412 


177777 
177777 


020130 
001242 


020076 


MACY11 30A(1052) 
T50 


177776 


177777 
177777 


001240 


001240 


C 8 
Y mage 07:25 PAGE 1-76 
SOURCE MODES, MODE 3 (FL=0) , TEST 


RSETUP GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS eT art 
: THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH en (HAS 
;THE USER TYPED CONTROL G?) 


PITTITITITITITTTITIT TTT T TTT Titi Titi t ttt Ttit it ttt itt titel 


:STEST 51 SOURCE MODES, MODE 5 (FL=0), TEST 
THIS IS A TEST OF SOURCE MODE 5 

USING THE LDFPS INSTR 

SCOPE 


UP THE LOOP ON ERROR ADDRESS. 


; SET 
MOV MFFCTP2+2 CRO) :SET UP THE TEST DATA BUFFER. 


MOV #FFCTP1 .-2(R 

MOV #45412, a#FFCTP 

MOV #45412. STIS. :SAVE DATA IN CASE OF ERROR. 

MOV #FFC1,aaSTMP2 

MOV wFF C20, @WERRVECT ;SET UP FOR TRAPS TO 4. 
FFC2: LDFPS a(R TEST INSTRUCTION. 

STFPS RS “GET THE FPS. 

CMP RO. AFFCTP2 71S RO CORRECT? 

BNE FFCT “BR IF 

CMP #45412,R5 -I1S THE ps CORRECT? 

BNE FFC11 “BR IF NOT. 

BR FF CDONE 


; TEST BUFFER AND DATA: 
FFCTP1: =1 

-1,-1,-1 
FFCTP2: FFCTP1,-1,-1.-1 


;REPORT RO INCORRECT. 


FFC10: MOV #FFCTP2 ,a&#STMP3 
MOV -a4STMPS4 
1$: ERROR 1 :RO BAD BUT FSRC FAILED 
BR FF CDONE 
Fy ad FPS INCORRECT. 
FFC11: MOV #45412, —s ;REPORT FPS INCORRECT. 
MOV R5 ,a4STMP 
1$: 
7 TRAP HERE THROUGH VECTOR FOUR. SEE IF THE T WAS DURING 
= EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
sFAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
FFC20: MOV (SP) ,R2 
CMP R2,AFFC2+2 
BEQ 1$ 


SEQ 0095 | 


8 
CJKDDB KEF11-A DIAG PART 2 MACY11 30A(1052) Y gm 07:25 ” PAGE 1-77 | 
CJKDDB.P11 12-MAR~80 07:22 151 SOURCE MODES, MODE 5 (FL=0), TEST SEQ 0094 
3420 020204 020227 020100 CMP R2 .AFFC2+4 
25) 920210 00140 BEQ 1$ 
3% 4 020212 137 036146 JMP @#CPSPUR 
4 0 536 022626 1$: CMP (SP) +, (SP) + 
3424 020220 010257 001236 MOV =—- R2. aw SMP 
3425 0 5 4 104001 2$: ERROR 1 ODD ADRES 
3426 020226 FF CDONE : 
(1) 020226 104413 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
(1) :SEE IF THE USER HAS EXPRESSED 
(1) : THE DESIRE TO CHANGE THE SOFTWARE 
(1) :VIRTUAL CONSOLE SWITCH — (HAS 
(1) ;THE USER TYPED CONTROL G?) 
7 PETIT I ITIL IIIT TTT TI LI TIT TT iTiTitlititiiiiiti citi ti iti i tii ii 
+ s*TEST 52 SOURCE MODES, MODE 6 (FL=0), TEST 
(4) :* THIS IS A TEST OF SOURCE MODE 6 
(9) 7* USING THE LDFPS INSTR 
* 
(3) PETIT TIT T tit tit titi titi itititi iii ti titi iitiiiitiiiii ii titi it. 
(2) 020230 000004 TST52: SCOPE 
3428 020252 GGC1: 
(1) 020232 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2°62 020234 012700 013123 MOV roo Mapes a -RO ;SET UP THE TEST DATA BUFFER. 
34350 020240 012737 046543 020324 MOV #46543 ,a#GGCTP1 
3431 020246 012737 046543 001240 MOV #46543, "BAS TNES sSAVE DATA IN CASE OF ERROR. 
34352 020254 012737 020272 0012356 MOV #GGC2 , aASTMP2 
3435 020262 005001 CLR R1 
3434 020264 012737 020412 000004 MOV #GGC20 ,aMERRVECT ;SET UP FOR TRAPS TO 4. 
3435 020272 170160 005201 GGC2: LDFPS 5201(RO) TEST INSTRUCTION. 
3436 020276 170204 STFPS = R4 GET THE FPS. 
3437 020300 005701 TST R1 : WAS . CORRECT AFTER EXECUTION? 
3438 020302 001035 BNE GGC25 :BR IF NOT. 
3439 304 020027 0135125 CMP RO,#GGCTP1-5201 :1S RO CORRECT? 
3440 020310 001012 BNE GGC :BR IF NOT. 
3441 020312 022704 046545 CMP #46543 ,R4 :IS THE FPS CORRECT? 
3442 020316 001016 BNE GGC11 ;BR IF NOT. 
3445 0203520 000451 BR GGCDONE 
3444 
3445 
3446 : TEST BUFFER AND DATA: 
3447 020322 177777 - 
3448 020324 177777 177777 177777 GGCTIP1: -1,-1,-1,-1 
0203352 177777 
ets 020334 177777 -1 
3451 ;REPORT ey INCORRECT. 
3452 020336 012737 013125 001240 GGC10: wGGCTP1=5201, @ASTMPS 
3453 020344 010037 001242 MOV RO, a4STMP 
3454 020350 104001 1$: ERROR 1 ;RO BAD BUT FSRC FAILED 
$022 020352 000434 BR GGCDONE 
3457 REPORT FPS INCORRECT. 
3458 020354 012737 046543 001240 GGC11: MOV #46543, a#STMP3 ;REPORT FPS INCORRECT. 
3459 020 010437 001242 MOV R4 , ASTMPS 
3460 020 104001 1$: ERROR 1 
3461 020370 000425 BR GGCDONE 
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EFES EE 
ARANIS 


~n~k~.~~..-FFEFEE 
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Wwe a 
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020276 
020274 


020274 
020276 
036166 
001236 


013357 
020550 
004547 
020516 
020644 
005201 


013357 
004547 


177777 
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SOURCE MODES, MODE 6 (FL=0), TEST 


;REPORT PC INCORRECT AFTER INSTRUCTION. 
MOV #GGC2+4 ,aASTMPS 


GGC25: 
#GGC2+2 ,aaSTMP4 
1$: ERROR 1 sPC xX 


BR GGCDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
:EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
sFAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
GGC20: (SP) ,R2 
CMP ai 


CMP cena 


BEQ 
JMP @ACPSPUR 
1$: CMP (SP)+, (SP)+ 
MOV R2,a4¢$TMP2 
2$: ERROR 1 :O0DD ADRES 
GGCDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 


THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


PU TTIIITITTIT IIIT TTT IT TTT TIT TTiTi Titi tli titi tit ttt LLL 


:STEST 53 SOURCE MODES, MODE 7 (FL=0), TEST 
‘* THIS IS A TEST OF SOURCE MODE 7 
:* USING THE LDFPS INSTR 
** 
PETTITT itt iit i ittiititiititi¢iititiiitiiiiiiiiiiiiiti titties 
TSTS3: SCOPE 
HHC1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #HHCTP2-5201,RO :SET UP THE TEST DATA BUFFER. 
MOV WHC TP 5201 (RO) 
MOV #4567 


CTP1 
MOV #64547, -@a$ MP3 ;SAVE DATA IN CASE OF ERROR. 


MOV #HHC 2, 
R1 


CLR 

MOV #HHC20 ,a#ERRVECT ;SET UP FOR TRAPS TO 4 
HHC2:  LDFPS 95201 (RO) Bry INSTRUCTION. 

STFPS > GET THE FPS. 

TST Ri WAS PC CORRECT AFTER EXECUTION? 

BNE HHC 25 BR IF NOT. 

CMP RO,A#HHCTP2=5201 :1S RO CORRECT? 

BNE HHC 1 7BR IF NOT. 

CMP #4567 ,R4 :1S THE FPS CORRECT? 

BNE HHC11 ;BR IF NOT. 

BR HHCDONE 


: TEST — AND DATA: 
HHCTP1: .WORD -1,°-1,°1,°1 





CJKDO8 


CJKDDB.P11 


3504 
3505 


WAG A 


te a eae 
NEY 


WW 


VII 
WDNAOULWN—O 


WANA 


3521 


ee Ss 
we ee ee 


Leas 
RUS 


020366 


17777 
177777 


000004 
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177777 


013357 
001242 


004547 
001242 


020522 
020520 


020520 
020522 
036166 
001236 


177777 


001240 


001240 


001240 
001242 


MACY11 30A(1052) 
753 
HHCTP2: 


;REPORT e INCORRECT 
HHC10: #HHCTP2—5201 , aASTMPS 
RO, a#STMP 
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SOURCE MODES, 
«WORD -1,-1,-1,-1 


MODE 7 (FL=0), TEST 


:RO BAD BUT FSRC FAILED 


;REPORT FPS INCORRECT. 


mov 
1$: ERROR 
BR HHCDONE 
=REPORT FPS INCORRECT. 
HHC11: MOV #4547 .a#$STMP3 
MOV Rs, aSTMPS 
1$: ERROR 1 
BR HHCDONE 
=REPORT PC INCORRECT AFTER INSTRUCTION. 
HHC25: MOV WHHC2+4 , AMS TMP3 
2 WHHCe +2. " a4STMPS 


; TRAP HERE 


HHCDONE 
THROUGH VECTOR FOUR. 


SEE IF THE TRAP WAS DURING 


sEXECUTION OF THE FPS INSTRUCTION BEING TESTED. 
FAILURE OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


J AAA AAA RERERRERARAERAERKEAEEEAREAAAERARARARERAERAEER ES 


MOV SP) ,.R2 
CMP R2, MHHC2+2 
BEQ 
CMP nee MHHC2+4 
BEQ 1$ 
JMP avcP 

1$: CMP (SP) rsp) s 
MOV 2, a#$TMP2 

2$: ERROR 

HHCDONE : 
RSE TUP 

“STEST 54 SOURCE MODES, 


;DDD ADDRESS 


:GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 


VIRTUAL CO 


IF SO REPORT 


TO CHANGE THE SOFTWARE 
CONSOLE SWITCH _— (HAS 


IRTUAL 
:THE USER TYPED CONTROL G?) 


MODE 2 GR7 (FL=1), 


* 
:* THIS IS A TEST OF THE LDCLD WITH 
:* IMMEDIATE ADDRESSING MODE 


<diachelinanigiinindnes tobezhneednunhrtenenenereneneetnenneennes 


1S154: 
1IC1: 


SCOPE 


LPERR 
MOV 
MOV 
MOV 
LDFPS 


#1IC2 


MP2 ‘sive 
AL ICO QmERRVECT *SET UP FOR TRAPS 


a3 
RO 


UP THE LOOP ON ERROR ADDRESS. 


TEST 


DATA IN CASE OF 


ERROR. 


TO 4. 


SEQ 0096 


CJKDDB KEF11=A DIAG PART 2 
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355 


wave 
SLSR 


EES 


SSERSARER 


020726 


021014 


021016 
021016 
02 


OS 1086 
021050 


005001 
177027 
005201 
005201 
005201 
005201 


020127 
001421 


_ 
Snak 
SSNz 


~~ 


oo —O-oOoO 
© ™m 
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— st J 
mr 
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000003 


020734 
000005 


001242 
020734 


001236 


000014 
000300 


021130 


021140 
000200 


G 8 
BY gm 07:25 PAGE 1-80 
E MODES, MODE 2 GR? (FL=1), TEST 


CLR R1 
112: sot i (R7)+,ACO 


MACY11 7 , 
754 


;TEST INSTRUCTION. 


CMP R1,43 ;WAS PC CORRECT AFTER EXECUTION? 
BEQ 1 1 CDONE ;BR IF YES. 


REPORT PC INCORRECT AFTER INSTRUCTION. 
I¢3: MOV AIIC2+4,R4 


SUB #3,R1 
ASL R1 
SUB R1,R4 
MOV R4,a4STMP4 
001240 MOV AIIC2+4 ,aASTMPS 
1$: — 1 ;BAD CONSTANT 


I ICDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
sEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
;FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


11C20: MOV (SP) , a#STMP2 
CMP (SP)+, (SP) + 
1$: ERROR 1 


I ICDONE : 
RS 


;BAD CONSTANT ODD ADD 
ETUP + GO INITIALIZE Hy: FPS AND STACK; AND 
; SE THE USER EXPRESSED 


; THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH _— (HAS 
;THE USER TYPED CONTROL G?) 


AUSSI IIOISISIIISIOIUIIDIOIIIIIOOIIIOIO OOOO RR RI Rit 
: STEST 55 SOURCE MODES, MODE 2 (FL=1). TEST 
:* eS IS A TEST OF THE LDCLD INSTR 

WITH MODE 2. 


_ 
. 


'MeEARAAAAASASASASASALASRAAAARAARSSAESALASASSRARSA SARA RARARAR SSA RDS SSS | 


TST55: SCOPE 
TCC: 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

001236 MOV TCC2,@4STMP2 + SAVE DATA IN CASE OF ERROR. 

MOV #300,R0 

LDFPS RO 

MOV #TCCBFO,RO ;SET UP THE TEST DATA BUFFER. 
TCC2: LDCLD (RO) +,ACO : TEST INSTRUCTION. 


STFPS R4 
MOV ATCCBF1,R1 
MOV #200,R2 


sGET THE FPS. 
;GET THE RESULT. 


SEQ 0097 


or 
jw 


SSEESRESE 8 


BS Eek saereenys 
® & SiSsessaronce 


Fe tt De a lle 
F-33738 
NGWOAweeweww UI 


ex 


3635 


8 
Ux 


=n 


F 
1 


NN 


021152 


021154 
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067076 
177777 
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001240 


001240 


054321 
177777 


8 
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SOURCE MODES, MODE 2 (FL=1), TEST 


LDFPS 

STD ACO, (R1) 

CMP RO, ATCCBFO+4 
BEQ TCC3 
;REPORT RO — iy 


31S RO CORRECT? 


mov aTCCBFO+G, “arste3 

1$: ERROR 1 :BAD CONST 
BR TCCDONE 

TCC3: CMP #300.R4 :1S THE FPS CORRECT? 
BEQ TCCDONE 

:REPORT FPS INCORRECT. 
MOV R4. aASTMPS 
MOV 4360 a4STMPS 

1$: ERROR 1 sFPS X 
BR TCCDONE 


von BUFFER AND DAT 


CCBFO: .WORD 01234, 67076, §4321,012345 
TCCBF1: -1,-1,-1,-1 
TCCDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 


:SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
:THE USER TYPED CONTROL G?) 


fF EAAAERARAAAARAEAEAAAAAAEAAERERHERAAEAAAAAAARAERAARAARERAARAREREREREEEE 


TEST 56 LDCIF AND LDCLF TEST 
he 


:* THIS IS A TEST OF THE LDCIF AND 
:* THE LDCLF INSTRUCTIONS. 
‘* 


° 
* -RREKEKREKREARAAERARARATAEAAAEKEARAETAAARARARAEAARAATAARAERERAAREERERERA EE 


TST56: SCOPE 


’ ;ZERO  OPERAND FL=0 

KKC1: 
LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,@#LDCFSUB :GO EXECUTE INSTRUCTION. 

1$: .WORD 0,0 FSRC OPERAND. 

2$: -WORD 0,0 “EXPECTED RESUL 

3$: “WORD -1,-1 ANTICIPATED ERRONEOUS RESULT. 

L$ 0 FPS BEFORE EXECUTION. 
4 “EPS AFTER EXECUTION. 


SEQ 0098 


_—- 
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021202 
0 


021250 
021250 
021252 


021256 
02 


021352 


Fads 
104001 


2 
07:22 


022306 
177777 
000000 
177400 


022306 
000000 
000000 
177777 


022306 


022306 
000000 


MACY11 Neal 
756 


8 
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F AND LDCLF TES 
a} ZANTICIPATED ERRONEOUS FPS. 
S$: ERROR 1. “REPORT RESULT INCORRECT. 
rs ERROR 1 REPORT FPS INCORRECT. 
>ZERO  OPERAND FL=0 
KKC2: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#LDCFSUB § :GO EXECUTE THE INSTRUCTION. 
1$: .WORD 0,-1 SRC OPE 
2$: “WORD 0.0 ‘EXPECTED RESULT. 
3$: 4177,177400 “ANTICIPATED ERRONEOUS RESULT. 
4$: 0 “FPS BEFORE EXECUTION. 
4 “FPS AFTER EXECUTION. 
=} “ANTICIPATED ERRONEOUS FPS. 
S$: ERROR 1 : (BUT FL) ST 
BR 6$ ier? TO 300 
a ERROR 1 NTO 301 
:ZERO OPERAND FL=1 
KKC3 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,a#LDCFSUB § :GO EXECUTE THE INSTRUCTION. 
1$: .WORD 0,0 :FSRC OPERAND. 
2$: “WORD 0.0 :EXPECTED RESULT. 
3$: "WORD -1,-1 :ANTICIPATED ERRONEOUS RESULT. 
4$: 100 FPS BEFORE EXECUTION. 
104 FPS AFTER EXECUTION. 
4 “ANTICIPATED ERRONEOUS FPS. 
5$: ERROR . =REPORT RESULT INCORRECT. 
ne ERROR 1 -FL WAS CLR‘ED 
; OPERAND POSITIVE FL=0 
"  LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,@MLDCFSUB  :GO EXECUTE THE INSTRUCTION. 
1$: -WORD 40000,0 :FSRC OPERAND. 
2$: “WORD  43600.0 “EXPECTED RESUL 
3$: “WORD  47600.0 “ANTICIPATED ERRONEOUS RESULT. 
4$: 17 “FPS BEFORE EXECUTION. 
0 “FPS AFTER EXECUTION. 
wf “ANTICIPATED ERRONEOUS FPS. 
S$: ERROR 1 :ST 107 BAD 
6$ =CONSTANT 231 INSD 
ERROR 7215 
; OPERAND=1 FL=0 
"_LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#LDCF SUB £60 EXECUTE THE INSTRUCTION. 
1$: .WORD 1,0 “FSRC OPERAND. 


SEQ 0099 
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051420 


021440 
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000000 
000000 


022306 


022306 


022306 
000000 


000000 
000400 
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156 


2s: . WORD 
3$: . WORD 
4$: 17 

4 
5$: ERROR 

ERROR 
6$: 
; OPERAND= 
KKC6: 

LPERR 

JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 0 

o, 
5$: ERROR 

ERROR 
6$: 
Sy lait ai 

"  LPERR 

JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 7 

9 
5$: ERROR 

BR 

ERROR 
6$: 
; OPERAND=~1 
KKC8: 

LPERR 

JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 0 

f 
5$: ERROR 

ERROR 
6$: 
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40200,0 
44200,0 


PATTERN FL=0 


PC. a#LDCF SUB 
252,0 
42052,0 
46052.0 


; REPORT 


FL=0 

PC ,a#LDCF SUB 
~4 x 
143600,0 
43600,0 

1 

6$ 

: 

FL~O 

PC, a#LDCF SUB 
-1,0 


140200,0 
144000. 400 


SEQ 0100 


ONT ICIPA RESUL 

ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
SANTICIPATED ERRONEOUS F 
;REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 


:SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 


“EXPECTED RESULT. 
SANTI CIPATED xecUv io RESULT. 


RESULT INCORRECT ‘ 
:REPORT FPS INCORRECT. 


:SET UP THE LOOP ON ERROR ADDRESS. 


;GO EXECUTE THE INSTRUCTION. 
:F OPERAND. 


EXPECTED RESULT. 
: ANTICIPATED ERRONEOUS RESULT 
S BEFORE EXECUTION. 


“(SET SIGN) ST 146 


;REPORT FPS INCORRECT. 


7SET UP THE LOOP ON ERROR ADDRESS. 
;GO EXECUTE THE INSTRUCTION. 
;FSRC OPE 


, 7 EXPEC TED RESUL 
ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 


:F CUT 
:ANTICIP. ATED +. FPS. 
> "os TO 152 | 


Tie BUF XNBT) 
;REPORT FPS INCORRECT. 


— 


& 
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3753 ; OPERAND=PAT TERN FL=0 
3754 021534 KKC9: 
(1) 0 1334 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3755 15 004737 022306 JSR PC @4LDCF SUB “GO EXECUTE THE INSTRUCTION. 
3756 021542 123298 000000 1$: “WORD 125252,0 :FSRC OPERAND. 
3757 0 1346 143652 126000 2$: "WORD  143652.126000 : EXPECTED RESUL 
3758 021552 043652 126000 3$: "WORD 43652,126000 ANTICIPATED ERRONEOUS RESULT. 
3759 021556 000007 4$: ? FPS BEFORE EXECUTION. 
3760 021 000010 10 “FPS AFTER EXECUTION. 
3761 1 177777 -1 sANTICIPATED ERRONEOUS FP 
37 021564 104001 5$: ERROR 1 sREPORT RESULT INCORRECT. 
3763 021566 01 BR 65 
37 021570 104001 ERROR 1 sREPORT FPS INCORRECT. 
3765 021572 6$ 
3766 
3767 : OPERAND POS FL=1 
3768 021572 KKC10: 
021572 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3769 021574 004737 022306 JSR PC ,afLDCF SUB 3;GO EXECUTE THE INSTRUCTION. 
3770 021600 040000 000000 1$: “WORD 40000,0 =FSRC OPERAND. 
3771 021604 047600 000000 2$: "WORD  47600.0 “EXPECTED RESULT. 
3 021610 043600 000000 3$: . WORD 43600,0 sANTICIPATED ERRONEOUS RESULT. 
021614 000117 4$: 117 “FPS BEFORE EXECUTION. 
3774 021616 000100 1 “FPS AFTER EXECUTION. 
3775 021620 177777 -1 “ANTICIPATED ERRONEOUS FPS. 
3776 021622 104001 S$: ERROR 1 *ST 107 CONSTANT 
3777 021624 000401 BR 6$ “BAD 237 INST 217 
3778 021626 104001 ERROR 1 “REPORT FPS INCORRECT. 
3779 021630 6$: 
3780 
3781 = OPERAND=1 FL=1 
3782 021630 KKC11: 
(1) 021630 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3783 021632 004737 022306 JSR PC .@4LDCF SUB GO EXECUTE THE INSTRUCTION. 
3784 021636 000001 1$: .WORD 0 : OPE 
3785 021642 040200 000000 2$: “WORD  40200,0 “EXPECTED RESULT. 
3786 021646 034 000000 3$ “WORD  34200.0 ‘ANTICIPATED ERRONEOUS RESULT. 
3787 021652 000100 4$: 100 “FPS BEFORE EXECUTION. 
3788 021654 000100 100 *FPS AFTER EXECUTION. 
3789 021656 177777 =] “ANTICIPATED ERRONEOUS FPS. 
790 021660 104001 5$: ERROR 1 “REPORT RESULT INCORRECT. 
3791 021662 000401 BR ES 
3792 021664 104001 ERROR 1 :REPORT FPS INCORRECT. 
3795 021666 6$ 
3795 ; OPERAND= PATTERN FL=1 
3796 021666 KKC12: 
(1) 021666 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
3797 021670 004737 022306 JSR PC ,@4LDCF SUB £60 EXECUTE THE INSTRUCTION. 
798 021674 000000 000252 1$: -WORD 0,252 “FSRC OPERAND. 
3799 021700 042052 000000 2$: -WORD  42052,0 -EXPECTED RESUL 
021704 036052 000000 3$: “WORD  36052.0 = ANTICIPATE ERRONEQUS RESULT. 
3801 021710 000111 4 111 “FPS BEFORE EXECUTION. 
021712 000100 100 “FPS AFTER EXECUTION. 
3803 021714 177777 o] “ANTICIPATED ERRONEOUS FPS. 
3804 021716 104001 S$: ERROR 1 “REPORT RESULT INCORRECT. 
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3805 021720 000401 BR 6$ 
3806 021722 104001 ERROR 1 :REPORT FPS INCORRECT. 
3807 021724 6$: 
3808 
3809 - OPERAND=~40000,0 FL=1 
3810 021724 ; 

(1) 021726 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3811 021 004737 022306 JSR PC. a#LDCFSUB § :GO EXECUTE THE INSTRUCTION. 

le 021 140000 000000 1$: “WORD -40000,0 sFSRC OPE 
381 1 147600 000000 2$: “WORD  147600.0 “EXPECTED RESULT. 
3814 021742 047600 000000 3$: “WORD  47600,0 :ANTICIPATED ERRONEOUS RESULT. 
3815 021746 000107 4$: 107 “FPS BEFORE EXECUTION. 
3816 021750 000110 110 “FPS AFTER EXECUTION. 
3817 021752 177777 of “ANTICIPATED ERRONEOUS FPS. 

18 021754 104001 S$ ERROR 1 “SET SIGN 
3819 021756 000401 BR 6$ 
3820 021760 104001 ERROR 1 :REPORT FPS INCORRECT. 
3821 021762 6$ 
3822 
382 :OPERAND=-1,-1 FL=1 
3824 021762 KKC14: 

(1) 021762 104414 LPERR :;SET UP THE LOOP ON ERROR ADDRESS. 
3825 021764 004737 022306 JSR PC,a4LDCFSUB  :GO EXECUTE THE INSTRUCTION. 
3826 021 177777 177777 1$: WORD -1.=1 “FSRC OPERAND. 
3897 021774 140200 000000 2$: “WORD  140200.0 sEXPECTED RESULT. 
3828 02 150000 000000 3$: “WORD 150000.0 “ANTICIPATED ERRONEOUS RESULT. 

02 000100 4$: 100 :FPS BEFORE EXECUTION. 

3850 022006 000110 110 “FPS AFTER EXECUTION. 
3831 022010 177777 @} ANTICIPATED ERRONEOUS FPS. 
3852 022012 104001 5$: ERROR 1 : (BUT XNBT) 
3833 022014 000401 BR 6$ 
3854 022016 104001 ad ERROR 1 :REPORT FPS INCORRECT. 
3836 
3837 OPERAND=-PAT TERN FL=1, ROUND MODE 
3338 922020 C15: 

(1) 022020 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3839 022022 004737 022306 JSR PC,@4LDCFSUB :GO EXECUTE THE INSTRUCTION. 
3840 022026 125252 125252 1$: “WORD 125252, 125252 sFSRC OPERAND. 
3841 02 147652 125253 2$: . 147652.125253 EXPECTED RESULT. 
3842 022036 047652 125253 3$: “WORD 47652,125253 ANTICI PATED ERRONEOUS RESULT. 
3843 022042 000105 L$: 105 FPS BEFORE EXECUTION. 
3844 022044 000110 110 *FPS AFTER EXECUTION. 
3845 02 177777 of “ANTICIPATED ERRONEOUS FPS. 
3846 104001 5$ ERROR 1 “REPORT RESULT INCORRECT. 
3847 022052 000401 BR 6$ 
3848 022054 104001 ERROR 1 :REPORT FPS INCORRECT. 
3849 022056 6S: 
3851 :OPERAND=77777,177500 FL=1, ROUND MODE 
3852 022056 KKC16: 

(1) 022056 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3853 022060 004737 022306 JSR PC.aMLDCFSUB :GO EXECUTE THE INSTRUCTION. 

54 022064 077777 177500 1$: “WORD 77777,177500 FSRC OPERAND. 
3855 022070 047777 177777 2$: "WORD 47777.177777 *EXPECTED RESUL 
3856 022074 047777 177776 3$: “WORD  47777.177776 “ANTICIPATED ERRONEOUS RESULT. 
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4$: 117 
<q 
5$: ERROR 1 
BR 6$ 
ERROR 1 
6$: 
zs OPERAND=40000,000100 = FL 
KKC17: 
LPERR 
JSR PC ,@4LDCF SUB 
1$: .WORD 40000,100 
2$: -WORD 47600,1 
3$: -WORD 47600,0 
4$: 102 
8 
5$ ERROR 1 
BR 6$ 
ERROR 1 
6$: 
A ae =40000,000100 FL 
i PC a@4_DCF SUB 
L 
1$: .WORD 40000,100 
2$: -WORD 47600,0 
3$: -WORD 47600,1 
4$: 157 
Le 
5$: ERROR 1 
BR 6$ 
ERROR 1 
OPERAND=100000.0 (MOST NEG #) 
i PC ,@4LDCF SUB 
1$: . WORD 106000 0 
2$: -WORD 144000,0 
3$: -WORD 143600,0 
4$: 7 
f 
5$ ERROR 1 
BR 6$ 
ERROR 1 
6$: 
; OPERAND=100000,0 
KKC20: 
LPERR 
JSR PC ,@4LDCF SUB 


M 8 
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SEQ 0103 
:FPS BEFORE oma poe 
SFPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 
7ST 631 INTO RND 


;REPORT FPS INCORRECT. 


ROUND MODE 


;SET UP THE LOOP ON ERROR —— 
:60 EXECUTE THE INSTRUCTION 
OPERAND . 


sEXPECTED R RESULT. 
= ANTICIPATED ERRONEOUS RESULT. 


S FP 
;REPORT PRESULT INCORRECT. 
sREPORT FPS INCORRECT. 


TRUNC MODE 


;SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 
OPERAND 


sf 
;EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
XECUTION. 


‘FPS AFTER EXECUTION. 

: ANTICIPATED ERRONEOUS FPS. 
T 631 ... INTO TRNC 

;REPORT FPS INCORRECT. 

FL=0 


>SET UP THE LOOP ON ERROR ADDRESS. 
: GO ae THE INSTRUCTION. 
OPERAND . 


:EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
:ANTICIP ATED ERRONEOUS FPS. 

ST 630 RH*R14+1 


;REPORT FPS INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 


4 
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3909 022254 100000 000000 1$: -WORD 100000,0 SRC OPERAND. 
3910 0 500 150000 000000 $3: -WORD 150000,0 ‘EXPECTED RE SUL 
3911 0 147600 000000 $: -WORD 147600,0 ANTICIPATED ERRONEOUS RESULT. 
391 70 000107 4$ 107 sFPS ORE EXECUTION. 
391 72 were 110 ;FPS AFTER EXECUTION. 
3914 022274 177777 -1 ANTICIPATED ERRONEOUS FPS 
3915 $/8 104001 5$: ERROR 1 ;REPORT RESULT INCORRECT. 
3916 5 000401 BR 6$ 
3917 O02 $00 104001 ERROR 1 s;REPORT FPS INCORRECT. 
pide 022 000506 6$: BR KK CDONE 
3920 ;THIS SUBROUTINE, LDCFSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
3921 ;THE LDCIF OR LDCLF INSTRUCTION AND CHECK THE RESULTS. A CALL 
3358 :TO IT IS MADE THUS: 
3924 ; JSR PC ,@4LDCF SUB 
3925 ; ACARG: .WORD X,X AC OPERAND 
3926 ; RES: ~WORD X,X “EXPECTED ae! 
3927 ; ERRES: .WORD X,X ;ERROR RESUL 
3928 ‘ FPSB: .WORD X FPS BEFORE EXECUTION 
3929 ; FPSA: .WORD X SFPS AFTER EXECUTION 
3930 ; ERFPS: .WORD xX sERROR FPS 
sR ) ; ERR1 ga 1;DATA ERROR 
3933 : ERR2: ERROR’ 1;FPS ERROR 
$oRe : CONT: sRETURN ADDRESS 
3936 :THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
3937 : THE LDCIF OR LDCLF INSTRUCTION IS EXECUTED. 
3938 : THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
3939 OMPARED WITH FPSA_IF THIS TOO IS CORRECT LDCFSUB RETURNS CONTROL 
:T0 CALLING ROUTINE AT CONT. IF T PS IS LD WILL 
5941 : COMPARE IT TO aT at FPS. IF THIS MATCHES THEN LDCFSUB WILL RETURN 
3942 :TO THE ERROR CALL AT ERR2, OTHERWISE LDCFSUB ITSELF 
3945 :REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
3944 sLDCIF OR LDCLF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
3945 ; ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
3946 ‘THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDCFSUB 
3947 ;WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
3948 ;RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDCFSUB 
36h ;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
3951 022 012601 LDCF SUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
3952 022310 016100 000014 MOV 14(R1) RO sSET THE FPS. 
3953 022314 170100 LDFPS R 
3954 022316 012737 022326 001236 MOV 41% ,a#STMP2 
$322 022324 010100 MOV R1,RO 
3957 022326 177010 1$: LDOCIF (RO),ACO ;TEST INSTRUCTION LDCIF OR LDCLF. 
3959 0223530 170204 STFPS R&4 ;GET FPS. 
3960 0223532 012700 022512 MOV A#LDCT RO :GET THE RESULT. 
3961 022336 012702 000200 MOV #200,R2 
3962 022342 170102 LDFPS R2 
3963 022344 174010 STD ACO, (RO) 


+ 
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07:2 756 LOCIF AND LDCLF TEST SEQ 0105 
01 2512 MOV MDCT R2 :SEE IF THE RESULT WAS CORRECT. 
01 ¢ 1242 MOV 2,a4$TMPG 
010137 001240 MOV Ré * a4STMPS 
1 MOV RI RS 
ADD 4,R3 
0 01 001244 MOV RE aeSTMPS 
0 4 Q1 001250 MOV R4,@4STMP7 
400 o161 7 000016 001252 MOV 16(R1) ,a#$TMP10 
406 010100 MOV R1,RO 
022410 700 000004 ADD #4,R0 
022414 01 000002 MOV #2.R3 
0 420 0 2$: CMP (RO) +, (R2)+ 
4 BNE 10$ ;BR IF INCORRECT. 
022424 077303 SOB R3,2$ 
02 426 026104 000016 CMP 16(R1).R4 :SEE IF THE FPS WAS CORRECT. 
0224 001020 BNE 15 “BR IF INCORRECT. 
022434 000161 000030 3$: JMP 30(R1) RETURN. 
“RESULT IN CORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
023440 012702 022512 10$: MOV ALDCT.R2 
022444 010100 MOV R1.RO 
022446 062700 000010 ADD #10,RO 
022452 072703 000002 MOV R 
022456 022022 11$: CMP (RO) +, (R2)+ 
022460 001003 BNE 13$ 
022462 077303 SOB R3,11$ 
022464 000161 000022 IMP 22(R1) 
; THE FAILURE WAS NOT ANTICIPATED SO REPORT THE ERROR HERE. 
022470 13$: 
022470 104001 14$: ERROR 1 :BAD RES 
022472 000760 BR 3$ 
: THE FPS WAS INCORRECT SO SEE IF IT WAS ANTICIPATED. 
022474 026104 000020 15$: CMP 20(R1) .R4& 
022500 001002 BNE 16$ 
022502 000161 000026 JMP 26(R1) 
mses :FPS ERROR NOT ANTICIPATED SO REPORT IT HERE. 
022506 104001 17$: ERROR 1 :BAD FPS 
022510 000751 BR 3g 
sDATA BUFFER: 
022512 000000 000000 000000 LDCT: .WORD 0.0.0.0 
022520 000000 
022522 KKCDONE : 
022522 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
i IF THE US USER HAS EXPRESSED 


CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
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023324 
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LDCIF AND LDCLF TEST 


; THE USER TYPED CONTROL G?). 


'MARRASESBAARASAASAASAALARAAAASASSRARSSASRSRALARR ERR RRR ARR RARRA RRR ARSE SS S| 


LDCID AND LDCLD TEST 
:* THIS IS A TEST OF LDCID AND LDCLD 


30A(1052) 
T56 
:*TEST 57 
jitts SCOPE 
LLC1 
LPERR 
JSR 
1$: . WORD 
2S: . WORD 
3$: . WORD 
4$: 213 
“— 
5$: ERROR 
BR 
ERROR 
6$: 
OPE =0 
LLCe: 
LPERR 
JSR 
1$: . WORD 
23: . WORD 
3$: . WORD 
4$: 200 
sh 
5$: ERROR 
BR 
ERROR 
6$: 
; OPERAND=0 
C3: 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 211 
= a 
5$: ERROR 


FL=O0, FD=1 


PC a#LDCDSUB 
0,6 
0:0.0,0 


-1,-1,-1,-1 


, 
6$ 

1 

FL=O, FD=1 


PC, a#LDCDSUB 
050,0,0 
4177,177400,0,0 


PC ,@LDCDSUB 
0,0,0,0 


-1,-1,-1,-1 


TN ne LT NT 


;SET_ UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 


;EXPECTED RESULT. 


;ANTICIPATED ERRONEOUS RESULT. 


sFPS BEFORE ye pa 
FPS ng e- EXECUTION. 
ZANTICIPATED ERRONEOUS F 
:REPORT RESULT INCORRECT. 


sREPORT FPS INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 
oy EXECUTE THE INSTRUCTION. 


;FSRC OPERAND. 
“EXPECTED RESULT. 


;ANTICIPATED ERRONEOUS RESULT. 


;FPS BEFORE EXECUTION. 
“REPORT FPS INCORRECT. 


:SET UP THE LOOP ON ERROR ADDRESS. 
‘ EXECUTE THE INSTRUCTION. 


OPERAND . 
‘EXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


;FPS BEFORE EXECUTION. 

:FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
;REPORT RESULT INCORRECT. 


SEQ 0106 
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4061 


“088 


4064 
4065 
4066 

(1) 
4067 


RRBs 
gSa5 


ae 


S 


R 
8 


ae 
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023324 
000000 
000000 
000000 


023524 
000000 
000000 
000000 


023324 
000000 
000000 
000000 
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LDCID AND LDOCLD TEST 


6$ 
ERROR 1 
6$: 
a FL=0 FD=1 
"  LPERR 
JSR PC ,a#LDCDSUB 
1$: -WORD  40000,0 
000000 2$: -WORD 43600,0,0,0 
000000 3$ «WORD 47600,0,0,0 
4$: 217 
st 
5$: ERROR 1 
6$ 
ERROR 1 
6$: 
; OPERAND=-40000 FL=0 FD=1 
LLCS: 
LPERR 
JSR PC ,@#LDCDSUB 
1$: .-WORD ban . 
000000 2$: -WORD 143600,0,0,0 
000000 3$ «WORD 43600,0.0,0 
4$: 200 
‘ 
S$: ERROR 1 
BR 6$ 
ERROR 1 
6$: 
; OPERAND=40000,0 FL=1 
LPERR 
JSR PC ,a#LDCDSUB 
1$: -WORD 4 20 
000000 2$: -WORD 47600,0,0,0 
000000 3$: -WORD 43600,0,0.0 
317 
is 
5$: ERROR 1 
BR 6$ 
ERROR 274 
6$: 
; OPERAND=0, 1 FL=1 FD=1 


SEQ 0107 


sREPORT FPS INCORRECT. 


:SET_ UP THE LOOP ON ERROR ADDRESS. 
£60 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 


EXPECTED RESULT. 
s ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE ty ea 
:FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
107 BAD CONST 


;REPORT FPS INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 
GO uae THE INSTRUCTION. 


FSRC OPERAND. 
“EXPECTED RESULT. 
sANTICIPATED ERRONEOUS 

FPS BEFORE EXECUTION. 

:FPS AFTER EXECUTION 
ANTICIPATED ERRONEOUS FPS. 
;(SET SIGN) ST 176 


;REPORT FPS INCORRECT. 


RESULT. 


FD=1 | 


>SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 


RAND . 
sEXPECTED RESULT. 
:ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE seo 
=FPS gti EXECUTION. 
;ANTICIPATED ERRONEOUS FPS. 
;ST 107 BAD CONS 


;REPORT FPS INCORRECT. 


— TT 


ss 
—_ — 3 3 2 


— 
m—r 
PUTS NVS Sees 
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02307 LLC?7: 
30 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4 006737 023324 JSR PC,@#LDCDSUB GO EXECUTE THE INSTRUCTION. 
100 000000 000001 1$: WORD “FSRC OPE 
104 040200 000000 000000 2$: “WORD  40200,0,0.0 ;EXPECTED RESULT. 
a 034200 000000 000000 3$: -WORD  %34200.0.0.0 :ANTICIPATED ERRONEOUS RESULT. 
124 000300 4$: 300 :FPS BEFORE EXECUTION. 
3126 000300 300 “FPS AFTER EXECUTION. 
3! 177777 =] ANTICIPATED ERRONEOUS FPS 
132 104001 S$: ERROR 1 “REPORT FPS INCORRECT. 

3134 000401 BR 6$ 
023136 104001 ERROR 1 :REPORT FPS INCORRECT. 

3140 6$: 

sOPERAND=77777,177777 FL=1 + FD=1 
023140 LLC8: 
023140 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
023142 004737 023324 JSR PC afl OCDSUB -GO EXECUTE THE INSTRUCTION. 
023146 077777 177777 1$: “WORD 77777,177777 :FSRC OPERAND. 
023152 047777 177777 177000 28: "WORD 47777, 159999, 177000,0 sEXPECTED RESULT. 

31 ets 177777 177777 38: .WORD <-1,-1,-1,-1 :ANTICIPATED ERRONEOUS RESULT. 
023170 177777 
023172 000317 4$: 317 :FPS BEFORE EXECUTION. 

023174 000300 300 “FPS AFTER EXECUTION. 
023176 177777 ~7 “ANTICIPATED ERRONEOUS FPS. 
023200 104001 S$: ERROR 1 “REPORT RESULT INCORRECT. 
023202 000401 BR 6$ 
023204 104001 ERROR 1 :REPORT FPS INCORRECT. 
023206 6$: 

: OPERAND=-PATTERN FL=1 = FD=1 
023206 LLC9: 

3206 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
023210 004767 000110 JSR PC,.LDCDSUB -GO EXECUTE THE INSTRUCTION. 
023214 177777 177526 1$: .WORD  -1.- “FSRC OPERAND. 

023220 142052 000000 000000 2%: “WORD  142052,0.0,0 sEXPECTED RESULT. 
023230 136052 000000 000000 3S: .WORD  136052,0,0.0 :ANTICIPATED ERRONEOUS RESULT. 
40 000307 4$: 307 :FPS BEFORE EXECUTION. 
42 000310 310 “FPS AFTER EXECUTION. 
023244 177777 =] “ANTICIPATED ERRONEOUS FPS. 
23246 104001 5$: ERROR 1 “REPORT RESULT INCORRECT. 
023250 000401 BR 6$ 
023252 104001 ERROR 1 :REPORT FPS INCORRECT. 
023254 6$: 
: OPERAND=PATTERN FL=1 FD=1 ~~ FT=1 
023254 LLC10: 
023254 104414 LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
023256 004767 000042 JSR PC. LDCDSUB *GO EXECUTE THE INSTRUCTION. 
012345 067012 1$: -WORD 12345,67012 -FSRC OPERAND. 
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023322 
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12=MAR=80 07:22 LOCID AND LDCLD TEST 
047247 025560 050000 2%: .WORD  47247,025560,050000.0 -EXPECTED RESULT. 
aia 177777 177777 38: -WORD ~-1,-1,-1,-1 :ANTICIPATED ERRONEOUS RESULT. 
000352 4$: 352 :FPS BEFORE EXECUTION. 
000340 340 “FPS AFTER EXECUTION. 
177777 =1 “ANTICIPATED ERRONEOUS FPS. 
104001 S$: ERROR 1. *REPORT RESULT INCORRECT. 
104001 ERROR 1 :REPORT FPS INCORRECT. 
000502 6$: BR LLCDONE 
: THIS SUBROUTINE, LDCDSU8, IS USED TO SET UP THE OPERANDS . EXECUTE 
; THE LDCID OR LDCLD INSTRUCTION AND CHECK THE RESULTS. A CALL 
: T IS MADE THUS: 
: SR PC ,a#LDCDSUB 
: ACARG: .WORD X,X :AC OPERAND 
: RES: ,WORD X,X,X,X “EXPECTED RESULT 
: ERRES: .WORD X,X,X,X ERROR RESULT 
: FPSB: .WORD xX FPS BEFORE EXTCUTION 
: FPSA: .WORD X “FPS AFTER EXE: \'TION 
: ERFPS: . WORD x s - 
: ERR1: ERROR 1 zDATA ERROR. 
: ERR2: ERROR  1:FPS ERROR. 
: CONT : :RETURN ADDRESS 
THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
: THE LDCID OR LDCLD INSTRUCTION IS EXECUTED. 
-THE RESULT IS CHECKED AGAINST RES. RESULT IS CORRECT THEN THE FPS IS 
=COMPARED WITH FPSA IF THIS TOO IS CORRECT LDCDSUB RETURNS CONTROL 
“TO THE CALLING ROUTINE AT CONT. IF 1S 
:COMPARE IT TOE FPS. IF THIS MATCHES THEN LDCDSUB WILL RETURN 
:TO THE ERROR CALL AT ERR2, OTHERWI SUB I 
“REPORTS THIS FAILURE HEN RETURNS TO CONT. IF THE RESULT 
“LDCID OR LDCLD IS INCORRECT, THE INCORRECT RESULT IS COMPARED UITH THE 
; ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
-THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDCDSUB 
“WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
“RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDCDSUB WILL 
“REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
012601 LDCDSUB: MOV SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
016100 000024 V BE KRI) .RO :SET THE FPS. 
170100 LDFPS RO 
012737 023344 001236 MOV #1$, a#STMP2 
010100 MOV R1_.R 
177010 1$: LDOCID (RO),ACO :TEST INSTRUCTION, LDCID OR LDCLD. 
70204 STFPS RG :GET FPS. 
012700 022512 MOV #LDCT,RO “GET THE RESULT. 
012702 000200 MOV #200,R2 
170102 LDFPS R 
174010 STD ACO, (RO) 


SEQ 0109 
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023510 


023512 
023516 
023520 


023524 


023524 
023526 


023530 
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000040 


_ 022512 


000014 
000002 


000032 


000030 
000036 
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001252 


;SEE IF 


2s: 


3$: 


11$: 
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LDOCID AND LDCLD TEST 


THE ; =~ IS CORRECT. 


SEQ 0110 


S THE FPS CORRECT? 


MOV DCT,R2 

MOV R2, a#STMPS 

MOV R1. avSTMP3 

MOV 1,R3 

ADD 4,R3 

MOV RS. a#STMPS 

MOV * AYSTMP7 

MOV BetRT). av$TMP10 

MOV R1.RO 

ADD ws -RO 

MOV 

CMP ) 

BNE 10$ :BR IF INCORRECT. 

SOB R3,2$ 

CMP 26(R1) RS 1S 

BNE 1 :BR IF INCORRECT. 

JMP 40(R1) RETURN. 
:THE RESULT WAS INCORRECT SO SEE IF THE ERROR WAS ANTICIPATED. 
10$: MOV #LDCT,R2 

MOV R1.R 

ADD #14,R0 

MOV #2,R3 

CMP (RO) +, (R2)+ 

BNE 13$ 

SOB R3,11$ 

JMP 32(R1) 


13$: 
sERROR NOT ANTICIPATED SO REPORT RESULT INCORRECT HERE. 
14$: ERROR 1 ;BAD RES 


15$ 


JMP 36(R1) 
AS ERROR WAS NOT ANTICIPATED SO REPORT FAILURE HERE. 


17$: 


LLCDONE : 
. RSETUP 


3$ 


;THE FPS WAS INCORRECT. SEE IF FAILURE WAS ANTICIPATED. 
: CMP 30(R1) RS 


ERROR 1 
BR 3$ 


;BAD FPS 


;GO INITIALIZE THE FPS AND STACK; 


;SEE IF THE USER HAS eS at 


: THE DESIRE TO C 


VIR 
THE USER TYPED CONTROL G?) 


PREAH AHEARARARARARERAETEAAAAAARAEREEARAREKRARERARKREREKREKRAKRE EES 


**TEST 60 
** THIS IS A TEST OF THE LDEXP INST 


LDEXP TEST 


AND 
HANGE SOF TWARE 
TUAL CONSOLE SWITCH — (HAS 
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CJKDDB.P11 12=MAR-B0 07:22 760 LDEXP TEST SEQ 0111, 
(4) :* A SUBROUTINE IS USED TO SET UP | 
(4) :* OPERANDS EXECUTE THE LDEXP INST AND | 
(4) :* CHECK THE RESULTS. | 
(3) : REAR REAAEAAAAERAARARERREEAAEAEAEARRARERARERRARREAEEEREKREEEREREE HEHE 

$2) 923532 000004 S760: SCOPE | 
4265 : NON-ZERO RES. VALID EXPON=210 (EXCESS 200)=10 

4266 023534 MMC 1: 

(1) 02 334 104414 LPERR T UP THE LOOP ON ERROR ADDRESS. 

4267 023536 004767 001334 JSR PC_.LDXSUB ‘26 EXECUTE THE INSTRUCTION. 

4268 342 012345 067012 034567 18: WORD 1384 4567012, 34567,012345 -ACO OPERAND. 

4269 093553 000010 2$: .WORD 10 XPONENT OPERAND. 

4270 023334 O24 067012 034567 3$: . WORD 43145.67012, 34567. 012345 sEXPECTED RESULT. 
4271 023564 902145 067012 034567 4S: WORD  2145,67012, 34567,012345 :ANTICIPATED ERRONEOUS RESULT. 
4272 023574 047217 S$: 47217 :FPS BEFORE EXECUTION. 

4273 023576 047200 47200 “FPS AFTER EXECUTION. 

4274 02 147200 147200 SANTI CIPATED ERRONEOUS FPS. 

4275 023602 177777 -1 sEXPECTED F 

4276 023604 104001 6$: ERROR 1 :£124E12+200 BAD 

4277 023606 000400 BR 7$ 2ST 624 

4278 023610 104001 7$: ERROR 1 *REPORT FPS INCORRECT. 

4279 :ST 625 INTO 304 

4280 

4281 : NON-ZERO RES NEG. 

4282 023612 MMC2: 

(1) 023612 104414 LPERR :SET UP UP_THE LOOP ON ERROR ADDRESS. 

4283 023614 004737 025076 JSR PC a#LDXSUB 

42 923620 123456 070123 045670 1$: .WORD 123456,70123, 45690 1536 123456 :ACO OPERAND. 

4285 023630 000177 2$: WORD 177 “EXPONENT OPERAND. 

2 023652 127636 070123 045670 3S: . WORD 177656,70123,45690 123656 sEXPECTED RESULT. 
4287 023642 137696 070123 045670 4$: WORD  137656.70123,45670, 123456 SANTICIPATED ERRONEQUS RESULT. 
4288 023652 047207 5$: 47207 FPS BEFORE EXECUTION. 

4289 023654 047210 47210 “EPS AFTER EXECUTION. 

4 023656 147210 147210 ANTICIPATED ERRONEOUS FPS. 

4291 02 177777 ~1 sEXPECTED F 

4292 023662 104001 6$: ERROR 1 :REPORT RESULT INCORRECT. 

4293 023664 000401 BR 7$ 

4294 023666 104007 ERROR 1 :REPORT FPS INCORRECT. 

4295 023670 7$ 

4297 :NON-ZERC RES. EXP=256=(56) REAL 

4298 023670 MMC3: 

(1) 023670 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

4299 023672 004737 025076 JSR DxSUB GO EXECUTE THE INSTRUCTION. 

4300 923676 073261 057645 043323 18: . WORD og5e1- 093645, 433b%- 101760 :ACO OPERAND. 

4301 023706 000056 2$: .WORD 56 oe T OPERAND. 

4302 023710 053461 057645 043323 3$: “WORD  53461,057645,43323,101 80 -EXPECTED RESULT. 
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CJKDDB.P11 12-MAR-B80 07: LDEXP SEQ 0112 
4303 Os 37s0 aad 177777 177777 4&$: . WORD -1,-1,-1,-1 sANTICIPATED FRRONEOUS RESULT. 
0 7 047 5$: 47200 FPS BEFORE EXECUTION. 
4305 0 047 47200 “FPS AFTER EXECUTION. 
4 3 147 149200 ANTICIPATED ERRONEOUS FPS. 
4307 023736 177777 -1 sEXPECTED F 
4308 740 1046001 6$: ERROR 1 REPORT RESULT INCORRECT. 
4309 023742 01 7$ 
4310 023744 104001 ERROR 1 sREPORT FPS INCORRECT. 
re ie 023746 7$: 
038 sEXP=27 (EXCESS 200)=-151 (OCT) 
4314 023746 MMC4: 
(1) O68 104414 LPERR "oie THE LOOP ON ERROR ADDRESS. 
4315 3750 0064737 025076 JSR ECUTE THE INSTRUCTION. 
4316 023754 012223 024252 062720 1S: WORD 15398" yess sorabtt 31555 -ACO OPERAND. 
023762 021222 
4317 023764 177627 2$: .WORD 151 iE RAND. 
4318 023766 005625 024252 062720 3$: “ WORD 5623, 24252,62720 D220. sEXPECTED RESULT. 
4319 023776 177777 177777 177777 4$: ,WORD  -1,-1,-1,-1 :ANTICIPATED ERRONEOUS RESULT. 
024004 177777 
4320 024006 047200 S$: 47200 :FPS BEFORE EXECUTION. 
4321 026010 047200 47200 “FPS AFTER EXECUTION. 
4322 024012 147200 147200 ANTICIPATED ERRONEOUS FPS. 
4323 024014 177777 -1 sEXPECTED F 
4324 024016 104001 6S: ERROR 1 REPORT RESULT INCORRECT. 
4325 024020 000401 BR 7$ 
4326 024022 104001 ERROR 1 : (BUT EZBT) ST 544 TO 504 INTO 704 O (BUT EXBT) ST 704 / 
4327 024024 7$: 
4329 sEXP=0 (EXCESS 200)=-200 (OCT), POSITIVE FRAC 
4330 : FIv=1 
4331 024024 
(1) 024024 104414 LPE >SET UP THE LOOP ON ERROR ADDRESS. 
43 24026 004737 025076 JSR “GO EXECUTE THE INSTRUCTION. 
4333 024032 030131 032334 035363 1$: WORD 30131, Bo aae, 35363, 73031 :ACO OPERAND. 
024040 073031 
4334 024042 177600 2$: .WORD  -200 “EXPONENT OPERAND. 
4335 024044 000131 032334 035363 3$: “WORD 00731 , 32334, 35368-73081 “EXPECTED RESULT. 
4336 024054 000000 000000 000000 4$: .WORD 0,0,0,0 :ANTICIPATED ERRONEOUS RESULT. 
4337 024064 042200 5$: 42200 :FPS BEFORE EXECUTION. 
4338 024066 142204 142204 “FPS AFTER EXECUTION. 
4339 024070 042202 42202 “ANTICIPATED ERRONEOUS FPS. 
4340 024072 12 12 s EXPECTED FEC. 
4341 024074 104001 6$: ERROR 1 : (BUT EXBT) ST 704 TO 64 INST 264 
4342 02407 01 7$ 
4343 026100 104001 ERROR 1 : (BUT FIU) ST 264 X 
43h 024102 7$: 
4346 sEXP=0 (EXCESS 200)=-200 (OCT), NEG FRACT,FIU=1 
4347 024102 MACE: 
(1) 024102 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4348 024104 004737 025076 JSR PC, a#LDXSUB “GO EXECUTE THE INSTRUCTION. 
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02 
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024344 


024 344 
000000 


025076 
035455 


000000 
035455 


025076 
062636 


062636 
000000 
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045464 


045464 
000000 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 


7$: 
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LDEXP TEST 


. WORD 


. WORD 
. WORD 


. WORD 
42200 


142214 
42214 


12 


ERROR 
BR 


ERROR 


1404614 , 24344 45464, 74045 


-200 ; EXPONE 
100014 ,24344,45464, 72065 


0,0.0,0 


} 
1 


;ACO OPERAND. 


ec 
sEXPECTED RESULT. 


ANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION. 

“FPS AFTER EXECUTION. 

gANTICI PATED ERRONEOUS FPS. 
sEXPECTED F 

REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 


sEXP=0 (EXCESS 200)=-200 (OCT),POS FRAC, FIU=0 


MMC7: 


1$: 


2$: 
3$: 


4$: 


6$: 


7$: 


sEXP=-1405 (EXCESS 200)=-1605 (OCT), 
MMC8: 


1$: 
2$: 
3$: 
4$: 


5$: 


6$: 


LPERR 
JSR 
- WORD 


. WORD 
. WORD 


PC, aWLDX 
51625, 35 


-200 
0.0.0.0 


00125 ,35455,5675,05152 


61626, 65636, 46566 ,67606 


1605 
76626, 62636, 46566 67606 


0.0.0.0 


\yo 
A 


UP THE LOOP ON ERROR ADDRESS. 
ECUTE THE INSTRUCTION. 
;ACO OPERAND. 


: SET 
XSUB 7GO EX 
455,5675.05152 
:EXPONENT OPERAND. 
sEXPECTED RESULT. 
:ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
IPATED ERRONEOUS FPS. 
= (BUT FIU) ST 264 X 


:REPORT FPS INCORRECT. 


F JU=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
=GO_EXECUTE THE INSTRUCTION. 
zACO OPERAND. 


; EXPONENT RAND. 
sEXPECTED RESULT. 


:ANTICIPATED ERRONEOUS RESULT. 


;FPS BEFORE ae 

:FPS AFTER EXECUTION. 

: ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 

; (BUT EZBT) ST 544 TO 704 INTO 504 


;REPORT FPS INCORRECT. 


rhe ae 


sREPORT RESULT INCORRECT 


CJKDDB KEF11-A DIAG PART 2 


CJKDD8. 


P11 


024314 


024314 
oa 


02 
024370 
024372 


024372 


024516 


SYaaesceeoss 
SISSSNUSSa Neus 


es 


— 
SSR 
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025076 
037475 


000000 
037475 


025076 
030405 


030405 
000000 


025076 
014151 


014151 
000000 


9 
eer 07:25 PAGE 1-97 


MACY11 30A(1052) 
T60 LDE XP 


7$: 
sEXP=-17416 (EXCESS 200)=-17616 (OCT), FJU=0 
MMC9: 


LPERR HE LOOP ON ERROR ADDRESS. 
JSR a4LDXSUB 0 EXE CUTE THE INSTRUCTION. 
076777 1$: . WORD Ah oor DSB iS 17273 :ACO OPE 
2$: _WORD -17616 s EXPONENT OPERAND. 
000000 3$: “WORD 0,0,0,0 “EXPECTED RESULT. 
076777 4S: WORD  74527,37475,76777,17273 :ANTICIPATED ERRONEOUS RESULT. 
S$: 45200 ;FPS BEFORE EXECUTION. 
45204 “FPS AFTER EXECUTION. 
145200 ANTICIPATED ERRONEOUS FPS. 
ol “EXPECTED APEC. 
6$: ERROR 1. : (BUT FIU) ST 504 
‘e ERROR 1 :REPORT FPS INCORRECT. 
iExp=-1601 (EXCESS 200)=-2001 (OCT), FIU=1 
" LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR *GO EXECUTE THE INSTRUCTION 
006070 1$: WORD 01020. 80208, 06070,00102 :ACO OPERAND. 
.WORD 2001 “EXPONENT OPERAND. 
006070 3$ “WORD 39620, 30405 .06070; 00702 sEXPECTED RESULT. 
000000 4$ .WORD 0,0,0,0 :ANTICIPATED ERRONEOUS RESULT. 
5$ 42200 :FPS BEFORE EXECUTION. 
142200 EPS AFTER EXECUTION. 
42204 ‘ANTICIPATED ERRONEOUS FPS. 
12 -EXPECTED FEC. 
6$ ERROR 1. = (BUT FIU) ST 504 
- ERROR 1 :REPORT FPS INCORRECT. 
iEXP=1206 (EXCESS 200)=1006 (OCT) FIV =1 
" LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,@4LDXSUB “GO EXECUTE THE INSTRUCTION. 
016171 1$: "WORD 12131.14151,16171,10111 :ACO OPERAND. 
2$: .WORD 1006 -EXPONENT OPERAND. 
016171 3$: . WORD 41931 ,14151,16174 610111 :EXPECTED RESULT. 
000000 4$: .WORD 0,0,0,0 :ANTICIPATED ERRONEOUS RESULT. 
5$: 41200 :FPS BEFORE EXECUTION. 
141202 “FPS AFTER EXECUTION. 
41204 “ANTICIPATED ERRONEOUS FPS. 
10 -EXPECTED FEC. 


SEQ 0114 


CJKDDB KEF11-A DIAG PART 2 


CJKDDB .P 


11 


024702 
024710 


104001 
000401 
104001 


=" 
R 
& 
_ 
&* 


WaEW 
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025076 
025242 


000000 
025242 


025076 
032335 


032333 
000000 


025076 
042434 044454 


MACY11 


023222 


000000 
023222 


30A( 1052) 
T60 
6$: 


7$: 


9 
a 07:25 * PAGE 1-98 


LDEXP TEST 
ERROR 1 ;(BUT FIV) ST 104 

BR 7$ 

ERROR 1 ;REPORT FPS INCORRECT. 


sEXP=16315 (EXCESS 200)=16115 (OCT) FIVv=0 
MMC 12: 


1$: 


2$: 
3$: 


4$: 
S$: 


6$: 


7$: 


46200 
46206 
seve 
ERROR 
BR 
ERROR 


T UP THE LOOP ON ERROR ADDRESS. 
EXECUTE THE INSTRUCTION. 
BSeo. Bg325, soos 31503 :ACO OPERAND. 


16115 
0,0,0,0 


63262 ,25242,235222,21202 


sFPS BEF ORE ny eH ge 
;FPS nA EXECUTION. 
ZANTICIPA TED ERRONEOUS FPS. 
sEXPECTED FEC. 
Le ; (BUT FIV) ST 104 


1 REPORT FPS INCORRECT. 


s EXPONENT OPERAND. 
sEXPECTED RESULT. 


;EXP=11011 (EXCESS 200)=10611 (OCT) FIV=1 


MMC 13: 
1$: 
23: 
3$: 
4$: 
5$: 
6$: 


7$: 


T UP THE LOOP ON ERROR ADDRESS. 


00 CUTE THE INSTRUCTION. 
50873, BO a3s, 34353 :ACO OPERAND. 


10611 iE RAND . 
3395. 32333, 34353 S0373 sEXPECTED RESULT. 


0.0,0,0 :ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
sEXPECTED F 
i. > (BUT “FIV) ST 144 
1 :REPORT FPS INCORRECT. 


sEXP=17123 (EXCESS 200)=16723 (OCT) FIV=0 


MMC 14: 


1$: 


2$: 
000000 000000 3$: 


:SET UP THE LOOP ON ERROR ADDRESS. 
7GO EXECUTE THE INSTRUCTION. 
40414. A3L8, 44454 ,46474 ;ACO OPERAND. 


16723 ;EXPONENT OPERAND. 
0,0.0,0 sEXPECTED RESULT. 


s;ANTICIPATED ERRONEOUS RESULT. 


SEQ 0115 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


4483 
4484 
448 


736 
024740 


024740 


025016 


025016 


025074 


024614 
04 
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MACY11 30A(1052) 
T60 


042434 044454 4$: 


025076 
052535 


052535 
000000 


025076 
062636 


062636 


054555 


054555 
000000 


5$: 


6$: 


7$: 
; EXP= 


MMC15: 


18: 


2s: 
3$: 


7$: 


THIS SUBROUTINE, LDXSUB, 


M9 
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LDEXP TEST 
-WORD  24614,42434 44454 ,46474 ;ANTICIPATED ERRONEOUS RESULT. 
46200 FPS BEFORE EXECUTION. 


6206 sFPS AFTER EXECUTION. 


146202 gANTICI PATED ERRONEOUS FPS. 
-1 sEXPECTED F 

ERROR 1 BLT FIV) ST 144 

ERROR 1 :REPORT FPS INCORRECT. 

254 (OCT)= 454 (EXCESS 200) FIV=1 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR @4LDXSUB -GO EXECUTE THE INSTRUCTION. 

. WORD 5087S 5588s, 54558. 56575 :ACO OPERAND. 

.WORD 254 EXPONENT OPERAND. 

WORD 13115,52535, 545sé 56575 zEXPECTED RESULT. 
.WORD 0,0,0.0 :ANTICIPATED ERRONEOUS RESULT. 
41200 :FPS BEFORE EXECUTION. 

141202 FPS AFTER EXECUTION. 

41204 sANTICIPATED ERRONEOUS FPS. 

10 sEXPECTED FEC. 

— Ne : (BUT FIV) ST344 

ERROR 1 :REPORT FPS INCORRECT. 

313 (OCT)= SI3(EXCESS 200) FIV=0 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#LD =GO EXECUTE THE INSTRUCTION. 
-WORD 60616, rerere 64656,66676 :ACO OPERAND. 

-WORD 313 ZEXPONENT OPERAND. 

-WORD 0,0,0.0 sEXPECTED RESULT. 

.WORD  22616,62636,64656,66676 sANTICIPATED ERRONEOUS RESULT. 
46200 -FPS BEFORE EXECUTION. 

46206 “FPS AFTER EXECUTION. 

146202 ANTICIPATED ERRONEOUS FPS. 

=1 sEXPECTED F 

ERROR 1. = (BUT FIV) ST 344 

ERROR 1 :REPORT FPS INCORRECT. 

BR MMCDONE 


IS USED TO SET UP THE OPERANDS, EXECUTE 


; THE LDEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 


SEQ 0116 


Po oy = &s 
Es Seater 


WN-O 


9 
hae DIAG PART 2 MACY11 30A(1052) Es 07:25 NPAGE 1-100 


12-MAR~-80 07:22 T60 LDEXP SEQ 0117 
:7T0 IT IS MADE THUS: 
: JSR PC ,@4LDXSUB 
: ACARG: WORD K,XX MM ;AC OPERAND 
. EXP: “WORD x ; EXPONENT 
° RES: ~-WORD X,X,X,X SEXPECTED RESULT 
3 ERRES: .WORD X,X,X,X ;ERROR RESULT 
: FPSB: ~-WORD X ;FPS BEFORE EXECUTION 
: FPSA: «WORD X ZFS AFTER EXECUTION 
5 ERFPS: .WORD xX sERROR FP 
; FEC: «WORD X = EXPECTED FEC 
: ERR1: _ 1;DATA ERROR. 
: ERR2: ERROR 1;FPS ERROR. 
: CONT: ;RETURN ADDRESS 


;THE OPERANDS ARE SET UP (USING ee AS THE ACCUMULATOR). THEN 
:THE LDEXP INSTRUCTION IS EXE 
;THE RESULT IS CHECKED AGAINST RES: IF THE RESULT IS CORRECT Lay THE FPS IS 


HE ERROR CALL A 
:RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDXSUB WILL 
sREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


025076 012601 LDXSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
025100 012700 000200 MOV #200,RO *LOAD THE ACO OPERAND. 
025104 170100 LDFPS RO 
025106 010100 MOV R1.RO 
025110 172410 LDD (RO) ,ACO 
025112 012737 025134 001236 MOV #1$,a#STMP2 

25120 016100 000032 32(R1) RO :SET UP THE FPS. 
025124 170100 LDFPS RO 
025126 010100 R1.RO 

25130 062700 000010 ADD #10,R0 
025134 176410 1$: LDEXP  (RO),ACO : TEST INSTRUCTION. 
025136 170204 STFPS R4 sGET THE FPS. 
025140 170305 STST RS “GET THE FEC. 
025142 012700 000200 MOV #200,RO “GET THE RESULT. 
025146 170100 LDFPS RO 

5150 012700 025366 MOV #LDXT,RO 
025154 174010 STD ACO, (RO) 
025156 010437 001250 MOV R4,a4STMP7 

3162 016137 000034 001252 MOV 34(R1) ,a#$TMP10 

5170 010537 001254 MOV RS, av$TMP11 
025174 016137 000040 001256 MOV 40(R1) ,a#$TMP12 
025202 010102 MOV R1,R 
025204 010237 001240 MOV R2. a#STMP3 


CJKDDB KEF11-A DIAG PART 
CJKDDB .P11 


> 


g 


BRR ER ER Cae e eee 


SanSAEs anaguaatoaas 


— 
foro 


&* 





MAPA AAAM AMAA 


“I~ 
Ose 


025304 


025356 
025356 
025360 
025362 
025362 
025364 
025366 
025374 
025376 
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000010 
001242 
000002 


001244 
025 
025366 


000012 
000004 


000034 
000034 
000040 


000050 
025366 
000022 
000004 


000042 


000036 
000046 


000000 000000 


MACY11 30A(1052) 
T60 


001246 


ADD 


2$: CMP 


3$: JMP 
3 THE RESULT 
10$: V 


11$: CMP 


WAS 


#10,R2 

(R2) ,aaSTMPS 
#2,R2 

R2. aeSTMPS 
#LDXT , a#$TMP6 
#LDXT.R2 
R1_R 

#12,R3 
#4.RO 

(R2)+, (R3)+ 
10$ 

RO,2$ 

R4. 34(R1) 

15 

34(R1) 
R5.40(R1) 
20$ 


50(R1) 


INCORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
AMLDXT ,R2 


R1_R 
#22,R3 

#4 RO 
(R2)+, (R3)+ 
128 


RO.11$ 
42(R1) 


B 10 
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LDEXP TEST 


;SEE IF THE RESULT WAS CORRECT. 


;BRANCH IF NOT CORRECT. 
;SEE IF THE FPS WAS CORRECT. 
;BRANCH IF NOT CORRECT. 
;SEE IF THE FEC WAS CORRECT. 
;BRANCH IF NOT CORRECT. 


;RETURN. 


; THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
13$: ERROR 
BR 


: 
3$ 


:BAD RES 


;SEE IF THE FPS ERROR WAS ANTICIPATED. 
15$: CMP 36(R1) .R4 


BNE 
JMP 


; 
46(R1) 


16$: 
:THE FPS WAS NOT ANTICIPATED SO REPORT IT HERE. 
17$: ERROR 1 ; FP 


21$ 


DATA BUFFER: 
LDXT: . WORD 


MMCDONE : 


3$ 


20$: 
-REPORT FEC INCORRECT. 
: ERROR 1 


3$ 


0.0,0,0 


‘BUT EZBTY8 
“ST 063 


;BAD FEC 


aan 


SEQ 0118 


CJKDDB KEF11=-A DIAG PART 2 
CJKDOB .P11 


025376 


025400 


025402 


104413 


737 
737 


001 
000422 


Ran 
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025502 
177777 
102345 
025450 
025574 


025506 


025506 
025506 
025510 


177777 
177777 


MACY11 30A(1052) 
T60 


001236 
000004 


102345 
177777 


177777 


001240 


C 10 
LE am 07:25 « AGE 1-102 
LDEXP T 


RSE TUP 72 a Be ty THE FPS AND STACK; AND 


T SOF TWARE 
VIRTUAL CONSOLE SWITCH o_o (HAS 
* THE USER TYPED CONTROL G?) 


; 
Wee ARRARARASRRAAAARSAEAASAARARARARSARR RRA LASARALEARARAARARARARAS ARADO | 


:STEST 61 DESTINATION MODES, MODE 1 (FL=0), TEST 
:* THIS IS A TEST OF DESTINATION MODE 1 USING 


=* THE STFPS INSTRUCTION 
*® 
PETIT I ttt titi titi iti titi i iti iititiiitiiii titi itii titi iti t iti iis 
TST61: SCOPE 
NNC1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #NNCTBO,RO -SET UP THE DATA BUFFER. 
1$: MOV #-1, (RO)+ 
S08 R1.1$ 
MOV #102345,RO 
MOV WNNC 2, aaSTMP2 
MOV WNNCO5S A#ERRVECT :SET UP FOR TRAPS TO 4. 
LDFPS RO :SET UP FPS. 
MOV #NNCTB1.RO 
NNC2:  STFPS (RO) : TEST INSTRUCTION. 
CMP RO, ANNCTB1 =1S RO CORRECT? 
BNE : H IF NOT CORRECT. 
CMP @WNNCTB1 #102345 1S RESULT CORRECT? 
BNE IF NOT CORRECT. 
CMP @ANNCTB1+2,#-1 :1S THE RESULT CORRECT? 
BNE NNC20 >BRANCH IF NOT CORRECT. 
BR NNCDONE 
: TEST DATA BUFFER: 
NNC TBO: . WORD -1,- 
NNCTB1: .WORD <-1.-1,-1,-1 
: REPORT RO INCORRECT. 
NNC10: RO, avSTMP4 
wnncTBT -a#STMP3 
1$: ERROR :RO BAD (BUT 
BR NNCDONE 5 FDST)X 
=REPORT RESULT INCORRECT . 
NNC15: MOV #102345 .aa#STMP3 ST 634 
MOV SONIC TAT avs IMP4 
1$: ERROR 1 :BAD DATA 
NNCDONE 


SEQ 0119 


CJKDDB KEF11=-A DIAG PART 2 
CJKDDB.P11 


a ee ee ee 


025620 
025620 


$5854 


case 
N 
S 
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177777 
025510 


025452 
036166 
001236 


025724 
000006 
177777 
105412 
025672 
026016 
025730 


025732 
025730 
025732 


MACY11 30A(1052) 
T61 


001240 
001242 


001236 
000004 


105412 
177777 


D 10 
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DESTINATION MODES, MODE 1 (FL=0), TEST SEQ 0120 


;REPORT RESULT INCORRECT. 
20: MOV #1 


NNC -a4STMPS 
MOV SeNNCTBI +2, avS MP4 
1$: E 1 (BUT GR7,FL) 
BR NNC DONE 3ST 357 1 416 
INTO 417 
:1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
; DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
:TO THE SPURIOUS TRAP TO 4 HANDLER. 
NNC25: MOV (SP), 
CMP R4 ANN 2+2 
BEQ 1$ 
JMP @4CPSPUR 
1$: MOV (SP) ,@a&#STMP2 
CMP (SP)+,(SP)+ 
2$: ERROR 1 : (BUT FDST)+ ST634 
NANCDONE : 
RSETUP 


:GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 

+ THE DESIRE TO CHANGE THE SOFTWARE 
;VIRT ONSOLE SWITCH — (HAS 


UAL C 
: THE USER TYPED CONTROL G?) 


FL AAA AERA AAAAARERAAAAEAEAAAARERAREAAAAEKAEEAKRAEAERAAERARARAKRARAREERER 


**TEST 62 DESTINATION MODES, MODE 2 (FL=0), TEST 
“& 
>* THIS IS A TEST OF DESTINATION MODE 2 USING 
;* THE STFPS INSTRUCTION 
¢ “RARE KAARAREARAEAAEEHREKREEAAEARAARRARARAAEAREAARARAKREAEEARRREARAEREEAREAREERREE 
S162: SCOPE 
00C7: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS 
MOV #00CTBO,RO :SET UP THE DATA BUFFER. 
MOV R1 
1$: MOV #-1, (RO)+ 
SOB R1,1$ 
MOV #105412,R0 
MOV #O0C TMP2 
MOV #OOC 25 a#ERRVECT :SET UP FOR TRAPS TO VECTOR 4. 
LDFPS RO :SET UP FPS. 
MOV #00CTB1.RO 
00C2:  STFPS (RO)+ ;TEST INSTRUCTION. 


CMP RO, #OOC TB1+2 21S RO CORRECT? 


BNE CH IF NOT CORRECT. 
CMP a#00CTB1 #105412" :1S THE RESULT CORRECT? 
BNE 00C1 ; H IF NOT CORRECT. 
CMP @VOOCTB1+2,4-1 31S THE RESULT CORRECT? 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


095782 


rae 


025736 


025740 


025756 
025764 
025772 
025774 


025776 
6004 


02 
026012 
026014 


001026 
000447 


177777 


013737 


011637 
022626 
104001 


104413 
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177777 
177777 


001242 
025732 


105412 
025730 


177777 
025732 


025674 
036166 
001236 


MACY11 30A(1052) 
T62 


177777 


001240 


001240 
001242 


001240 
001242 


E 10 
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DESTINATION MODES, MODE 2 (FL=0), TEST 


BNE 0020 ;BRANCH IF NOT CORRECT. 
BR OOCDONE 


; TEST DATA BUFFER: 
CT -WORD <=-1,-1 
OOCTB1: .WORD <-1,-1,-1,-1 


;REPORT --4 INCORRECT. 
00C10: RO, 


SOorTBI ee. asSTMP3 
1$: ERROR 1 :RO BAD (BUT 
BR OOCDONE * -FDST)X 
{REPORT RESULT INCORRECT. 
00C15: MOV #105412 aa$TMP3 : ST 634 
MOV TBi aS TMP, 
1$: ERROR :BAD DATA 
BR OOCDONE 
:REPORT RESULT INCORRECT. 
00C20: MOV #~1, a4STMP 
MOV 5900 TBI +2, af IMPS 
1$: ERROR 1 : (BUT GR7,FL) 
BR OOCDONE “ST 357 TO 416 
sINTO 417 


:1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
[DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
3TO THE — TRAP TO 4 HANDLER. 


CMP Rs AOOC2+2 


BEQ 

JMP @4CPSPUR 
1$ MOV (SP) ,@#$TMP2 

CMP (SP)+, (SP)+ 
2$ ERROR 1 ; (BUT FDST)+ ST654 
OOCDONE : 

RSE TUP 


:GO INITIALIZE THE FPS AND STACK; AND 
>SEE IF THE USER HAS EXPRESSED 
; THE DESIRE 


TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH a (HAS 
; THE USER TYPED CONTROL G?) 


22 RAEKAETARARARAARAARAAARAAEARATAATAAAAARARERKAARARAARAEEAAAAAEEREKREREEEEE 


sete! 63 DESTINATION MODES, MODE 4 (FL=0). TEST 


‘e THIS IS A TEST OF DESTINATION MODE 4 USING 

3* THE STFPS INSTRUCTION 

- 

Preeti titi titi itiiit titi titi iii iii iii ie 


SEQ 0121 


CJKDDB KEF11-A DIAG PART 2 
CJKDDB.P11 


47% 
4 
(1) 


026044 
0 
0 


06 
026110 
026114 
0 


026162 
026166 
026174 
026176 


0 
026216 


026220 
026226 
026234 
026236 


000004 


o-— 
=2 
as 
Ss> 


quses 


3 
: 
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026146 
000006 
177777 
105555 
026114 
026240 


026154 


026152 
626152 
026154 


177777 
177777 


001242 
026152 


105555 
026152 


177777 
026154 


026116 
036166 


MACY11 30A(1052) 
163 


S 
—_ 
™Nm 
WwW 
oO 


105555 
177777 


177777 


001240 


TST63: SCOPE 
PPC1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #PPCTBO,RO >SET UP THE DATA BUFFER. 
1$: MOV #-1,(RO)+ 
S08 R1.1$ 
MOV #105555.R0 
°. MOV C2. aa#STMP2 
«MOV wPPC25 a#ERRVECT SET UP FOR TRAPS TO VECTOR 4. 
LDFPS RO :SET UP FPS. 
PPC2: STFPS -(RO) : TEST INSTRUCT ION. 
CMP RO, #PPCTB1 31S RO CORRECT 
BNE CH IF NOT * CORRECT. 
CMP aePPCTB1 w105555° 1S THE RESULT CORRECT? 
BNE PPC15 H IF NOT CORRECT. 
CMP @ePPCTB1+2,#-1 1S THE RESULT CORRECT? 
BNE PPC20 “BRANCH IF NOT CORRECT. 
BR PPCDONE 
: TEST DATA BUFFER: 
PPCTBO: .WORD -1,-1 
PPCTB1: .WORD <-1.-1,-1,-1 
: REPORT RO INCORRECT. 
PPC10: MP4, 
mov #PPCTB1  awSTMP3 
1$: ERROR 1 :RO BAD (BUT 
PPCDONE FDST)X 
ZREPORT RESULT INCORRECT 
PPC15: MOV #105555 a#SIMP3 : ST 634 
MOV aePPC TB’, aaSTMP4 
1$: ERROR 1 :BAD DATA 
BR PPCDONE 
:REPORT RESULT INCORRECT. 
PPC20: MOV #-1, a#$TMP 
MOV a#PPCTB1+2,anSTMP4 
1$: E 1 - (BUT GR7.FL) 
BR PPCDONE 


;1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
;DURING EXECUTION OF THE FPP -_ BEING TESTED, 


F 10 
Lf many a 07:25 " PAGE 1-105 
DESTINATION MODES, MODE 4 (FL=0), TEST 


-ST 357 TO 416 
sINTO 417 


IF NOT GO 


;TO_THE SPURIOUS TRAP TO 4 
PPC25: MOV 


CMP 
BEQ 
JMP 


R4,APPC2+2 
@a#CPSPUR 


SEQ 0122 


CJKDDB KEF11=-A DIAG PART 2 
CJKDD8.P11 


026264 
026264 


026266 
026270 


104413 


— = 
MIVA 
SASSSz 


o-OOooCo°o°o°o— 
SES RSE 
ssi 


177777 


010037 
012737 
104001 
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026256 011637 001236 
096560 022626 
0 164001 


026374 
000010 
177777 


177777 
177777 


177777 


001242 
026412 


MACY11 30A(1052) 
763 


001236 
000004 


106653 
026400 


177777 


001240 


DESTINATION MODES, 


G 10 
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MODE 4 (FL=0), TEST 


1$: MOV (SP) ,a&#@STMP2 
CMP (SP)+,(SP)+ 
2$: ERROR 1 : (BUT FDST)+ ST634 
PPCDONE : 
RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
: SEE IF THE USER HAS eT uae 
4 DESIRE TO CHANGE THE SOF TWARE 
sVIRTUAL CONSOLE SWITCH hh (HAS 
; THE USER TYPED CONTROL G?) 
SF AAA AAARAAAARAAAAAERAKERERARAAARARAAAAARRAAAAARAARARAAARAARARAE 
:*TEST 64 DESTINATION MODES, MODE 3 (FL=0), TEST 


-* 
7* THIS IS A TEST OF DESTINATION MODE 3 USING 


;* THE STFPS INSTRUCTION 


*@ 
> “RRR eeeeaeaRRRKERRAEHREERERARARARARRARARARRRERRRARREHRARERARARRAREREEKEAE 
S164: SCOPE 
QQC1: 
LPERR SET UP THE LOOP ON ERROR ADDRESS. 
MOV #QQCTBO.RO =SET UP THE DATA BUFFER. 
MOV 10,R1 
1$: MOV #~1_(RO)+ 
SOB R1,1$ 
MOV #106653,R0 
MOV #0002, a%STMP2 
V #WOOC25 awERRVECT ;=SET UP FOR TRAPS TO VECTOR 4. 
LDFPS RO :SET UP FPS 
MOV #QQCTB2,RO 
MOV #O0C TBI. (RO) 
Q0Cc2:  STFPS a(RO)+ : TEST INSTRUCTION. 
Mp RO,MQQCTB2*2 = ;1S_RO CORRECT? 
BNE aoc H IF NOT CORRECT. 
CMP avooctsl, #106653" :1S THE RESULT CORRECT? 
BNE aoc H IF NOT CORRECT. 
CMP aVQOCTB2,#Q0CTR1 -:1S THE RESULT CORRECT? 
BNE @0020 -BRANCH IF NOT CORRECT 
BR QOCDONE 
: TEST DATA BUFFER: 
QQCTBO: .WwORD -1,-1 
QQCc TBI: . WORD -1,-1,-1,-1 
QQCTR2: .WORD -1,-1 
: REPORT RO INCORRECT. 
Q0(10: RO, a#STMP4 
mov #00(TB2+2,aaS1MP3 
1$: ERROR 1 :RO BAD (BUT 
BR Q0( DONE FDST)X 


SEQ 0123 
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DESTINATION MODES, MODE 3 (FL=0), TEST 


;REPORT RESULT INCORRECT 
Q0C15: MOV 3 aes TMP ST 634 
MOV seoerrat. aa$ TMP, 
1$: ERROR 1 :BAD DATA 
BR QQCDONE 
:REPORT RESULT INCORRECT. 
QQ@C20: MOV #OQCTB2,avSIMP3 : (BUT FDST) 
i MOV ar0ac TBi+2, arSTMP4 


ERROR 
BR QQCDONE 


;1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
;DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
;TO THE — TRAP TO 4 HANDLER. 


a0c2s: 
CMP RG ,#00C2+2 
BEQ 1$ 
JMP @4CPSPUR 
1$: MOV (SP) ,@#STMP2 
CMP (SP)+,(SP)+ 
2$: ERROR 1 : (BUT FDST)+* ST634 
QQCDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


* "HARARE AAEREEARAARAEARAEAAAARRARAEAARARAAARAERAEEEREARERARARAARAREARERERE 


S*TEST 65 DESTINATION MODES, MODE 5 (FL=0), TEST 


-* 
;* THIS IS A TEST OF DESTINATION MODE 5 USING 
;* THE STFPS INSTRUCTION 
*® 
PTT TTITILITILILILTT LILLIE LLL LLL 


S165: SCOPE 
RRC1: 
LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
MOV #ARRCTBO,RO =SET UP THE DATA BUFFER. 
MOV #6,R 
1$: MOV #-1, (RO)+ 
S08 R1.1$ 


1 
MOV #004 301,R0 
MOV ARRC2, aaSTMP2 
MOV WRRC25 aWERRVECT :=SET UP FOR TRAPS TO VECTOR 4. 
LDFPS RO. :SET UP FPS. 
MOV #RRCTB2+2,RO 


SEQ 0126 | 
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CJKDDB.P11 12=MAR-80 07:22 765 DESTINATION MODES, MODE 5 (FL=0), TEST SEQ 0125. 
L916 026570 012760 026634 177776 MOV #RRCTB1,-2(RO) | 
4916 026576 170250 RRC2:  STFPS a-(RO) : TEST INSTRUCTION. 

4917 0 020027 026644 CMP RO. ARRCTB2 *I1S RO CORRECT? 
4918 0 001021 BNE RRC10 “BRANCH IF NOT CORRECT. 
4919 026606 023727 026634 004301 CMP @*RRCTB1,#004301 :1S THE RESULT CORRECT? | 
4920 026614 001024 BNE R : H IF NOT CORRECT. 
4921 026616 025707 026644 026634 CMP @ARRCTB2,#RRCTB1 ;:1S THE RESULT CORRECT? 
49 é 926624 0010 BNE RRC 20 :BRANCH IF NOT CORRECT. | 
4993 026626 000451 BR RRCDONE 
4985 TEST DATA BUFFER: 
4926 026630 177777 177777 RRCTBO: .WORD -1,-1 
4927 026634 177777 177777 177777 RRCTB1: .WORD <-1.-1.-1,-1 
026642 177777 
4928 026644 177777 177777 RRCTB2: .WORD -1,-1 
4930 : REPORT RO, INCORRECT. 
4931 026650 010037 001242 RRC10: RO, atSTMP4 
4932 026654 012737 026644 001240 dd #RRCTB2, ae$STMP3 
4933 026662 104001 1$: ERROR 1 :RO BAD (UT 
4934 026664 000432 BR RRCDONE :  -FDST)X 
4936 ZREPORT RESULT INCORRECT. 
4937 026666 012737 004301 001240 ARC15: MOV #004301 .aa#STMP3 : ST 634 
4938 026674 013737 026634 001242 MOV @ARRCTB .aeSTMP4 
4939 026702 104001 1$: ERROR 1 :BAD DATA 
4940 026704 000422 BR RRCDONE 
4941 
4942 
4943 ;REPORT RESULT INCORRECT. 
4944 026706 012737 026644 001240 RRC20: MOV ARRCTB2, aaSTMP3 -BUT FDST) 
4945 026714 013737 026636 001242 MOV @ARRCTB1+2,aeSTMP4 
4946 026722 104001 1$: ERROR 1 - (BUT GR7.FL) 
4947 026724 000412 BR RRCDONE :ST 357 TO 416 
4968 “INTO 417 
4950 :1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
4951 “DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED. IF NOT GO 
4952 “TO THE SPURIOUS TRAP TO 4 HANDLER. 
4953 026726 011604 RRC25: MOV (SP) RG 
4954 026730 020427 026600 CMP Re ARRC 242 
4955 026734 001402 BEOQ 
4996 026736 000137 036166 JMP aeCPSPUR 
4958 026742 011637 001236 1$: MOV (SP) ,aaSTMP2 
4959 026746 022626 CMP (SP)+, (SP) + z 
4960 026750 104001 2$: ERROR 1 : (BUT FDST)+ ST634 
4962 026752 RRCDONE : 
(1) 026752 104413 RSETUP -GO INITIALIZE THE FPS AND STACK: AND 
(1) “SEE IF THE USER HAS EXPRESSED 
(1) “THE DESIRE TO CHANGE THE SOF TWARE 
(1) “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
ap “THE USER TYPED CONTROL G?) 
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DESTINATION MODES, MODE 5 (FL=0), TEST 
FJ AAAAAAAAAAAAAAAAAAAAAAEAHAAARARAAAARARARAARAAAAARAAAARAAAAAAHAAES 
; *TEST be DESTINATION MODES, MODE 6 (FL=0), TEST 
cs THIS IS A TEST OF DESTINATION MODE 6 USING 
;* THE STFPS INSTRUCTION 
i. REEAAARAERAERAARAERARARARREREARERERARARAEREARAARRERAREAEERRERAREEAEAREARAREREEEASE 
TST66: SCOPE 
SSCi: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #SSCTBO,RO :SET UP THE DATA BUFFER. 
1$: MOV #-1, (RO)+ 
S08 R1,1$ 
MOV #102514,R0 
MOV #SSC2,aeSTMP2 
MOV #SSCO5,a@WERRVECT :SET UP FOR TRAPS TO VECTOR 4. 
LDFPS RO :SET UP FPS. 
MOV RSSCTB1-5201 RO 
SSC2:  STFPS 5201 (RO) TEST INSTRUCTION. 
CMP 1,40 :WAS PC CORRECT AFTER EXECUTION? 
BNE S530 [BRANCH IF NOT CORRECT. 
CMP RO. #SSCTB1-5201 :IS RO CORRECT? 
BNE :BRANCH IF NOT CORRECT. 
CMP @#SSCTB1.#102514 1S THE RESULT CORRECT? 
BNE Ya H IF NOT CORRECT. 
CMP a*SSC1B1+2, 4-1 “15 THE RESULT CORRECT? 
BNE SSC 20 =BRANCH IF NOT CORRECT. 
BR SSCDONE 
;TEST DATA BUFFER: 
SSCTBO: .WORD 71 
SSCTB1: .WORD -1.-1,-1,-1 


: REPORT a INCORRECT. 
$SC10: RO, a#STMP4 
#SSCTB1~5201 ,a#STMP3 


MOV 

1$: ERROR 1 :RO BAD 
BR SSCDONE 

:REPORT RESULT INCORR ct. 

$SC15: MOV 102534, a#STMP3 
MOV aSSCTBT aa$ TMP4 

1$: ERROR 1 :BAD DATA 
BR SSCDONE 


;REPORT RESULT INCORRECT. 
SSC20: MOV 4-1 ,@ASTMPS 
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CJKDDB.P11 12-MAR-80 07:22 DESTINATION MODES, MODE 6 (FL=0), TEST SEQ 0127 
$011 027150 013737 027076 001242 MOV @7SSCTB1+2,a¢$TMP4 
501 027156 104001 E 1 -(BUT GR7,FL) 
5013 027160 BR SSCDONE st 357 fo 416 
31 me 
5016 :1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
5017 : DURING EXECUTION OF THE ye INSTRUCTION BEING TESTED, IF NOT GO 
5018 s THE SPURIOUS TRAP TO 4 HANDLER. 
5019 027162 011604 ibe os. MOV (SP) RS 
as7 igs 020427 027030 CMP R4.MSSC2+2 
027170 De BEQ 
027172 000137 036166 JMP @*CPSPUR 
027176 011637 001236 1$: MOV (SP) ,a@#STMP2 
027202 022626 CMP (SP)+,(SP)+ 
027204 104001 2$: ERROR 1 : (BUT FDST)+* $1634 
2n5e 027206 000401 8R S° (DONE 
5029 :REPORT PC NOT INCREMENTED BY 2 DURING EXECUTION. 
5030 027210 $SC30: 
5031 027210 104001 1$: ERROR 1 :PC NOT 
5032 : INCREMENTED 
5033 :BY 2 
5034 
5035 027212 SSCDONE : 
(1) 027212 104413 RSETUP ;GO INITIALIZE THE FPS AND STACK; AND 
(1) sSEE IF THE USER HAS EXPRESSED 
(1) die, 3 DESIRE TO CHANGE THE SOF TWARE 
(1) “VIR TUAL CONSOLE SWITCH — (HAS 
(1) : THE USER TYPED CONTROL G?) 
2039 
5038 SERRA AEE RAAAAAAAREREEEERAAARAAAAAAERAEREREERERAEAARRERRE EE 
om : TEST 67 DESTINATION MODES, MODE 7 (FL=0). TEST 
(4) - THIS IS A TEST OF DESTINATION MODE 7 USING 
as :* THE STFPS INSTRUCTION 
** 
(3) eT T Titi ti tii iii iti ii iitiiiititiiitiititiiiiitiiiiiiiiiii itt. 
5% 027214 000004 TST67: SCOPE 
5040 027216 TTC1: 
(1) 027216 104414 LPERR sSET UP THE LOOP ON ERROR ADDRESS. 
5041 027220 012700 027336 MOV #TTCTBO.RO SET UP THE DATA BUFFER. 
5042 027224 012701 000010 MOV 10,R1 
5043 0272 012720 177777 1$: MOV ce -* 
5044 027234 077103 S08 
5045 027236 012700 103747 MOV m103747 8 RO 
5046 027242 012737 027274 001236 MOV mrTC8 ah 
5047 027250 012737 027434 000004 MOV #TTC25, SPERRVECT :SET UP FOR TRAPS TO VECTOR 4 
5048 027256 170100 LDFPS sSET UP FPS 
5049 027260 005001 CLR ~ 
5050 027262 012700 022151 MOV #TTCTB2-5201,R0 
2825 027266 012760 027342 005201 MOV #TTCTB1,5201(RO) 
5053 027274 170270 005201 TTC2: STFPS @5201(RO) :TEST INSTRUCTION. 
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CJKDDB.P11 12-MAR-80 07:22 167 DESTINATION MODES, MODE 7 (FL=0), TEST SEQ 0128 
5054 02 022701 000000 CMP #0,R1 ;WAS ad CORRECT AFTER EXECUTION? 
5055 0 001066 BNE TTC30 ;BRANCH IF “yj! CORR ECT. 

5056 0 020027 022151 CMP RO,ATTCTB2-5201 ;I1S RO CORRECT 

5057 027312 001021 BNE TTC10 BRANCH IF NOT * CORRECT 

5058 7314 023727 027342 103747 CMP avTTCTB! #103747" ;IS . RESULT CORRECT? 
5059 0 2 oo19ss BNE TT H IF NOT CORRECT. 
5060 0 4 023727 027344 177777 CMP anTTCTB192, #-1 1S THE RESULT CORRECT? 
5061 0273 001030 BNE TTC20 ;BRANCH IF NOT CORRECT. 
ane8 0273 000453 BR TTCDONE 

506 

5064 


=: TEST DATA BUFFER: 
5065 027336 177777 177777 TTCTBO: .wORD -1,-1 
027342 177777 177777 177777 TTCTB1: .WORD <-1.-1,-1,-1 


5066 
027350 177777 
5067 027352 177777 177777 TTCTB2: .WORD <-1,-1 
5069 ;REPORT - INCORRECT. 
5070 027356 010037 001242 TTC10: RO, avs TMP 
5071 OS Ros 012737 022151 001240 MOV aT feTe2-5201, aFSTMP3 
5072 027370 104001 1$: ERROR 1 :RO BAD 
5073 027372 000434 BR TTCDONE 
5074 
5075 
5076 i ld RESULT INCORRECT. 
5077 027374 012737 103747 001240 TTC15: MOV #103747, avSTMP3 
5078 027402 013737 027342 001242 MOV avTTCTBi aS TMPS 
5079 027410 104001 1$: ERROR 1 :BAD DATA 
5080 027412 000424 BR TTCDONE 
5081 
5082 
5083 a RESULT INCORRECT. 
5084 027414 012737 177777 001240 TTC20: MOV #-) LaASTMP3 
5085 6443 013737 027344 001242 MOV a*TTCTB1+2. a¢STMP4 
5086 027430 104001 1$: ERROR 1 ; (BUT GR7,FL) 
5087 027432 000414 BR TTCDONE sST 357 TO 416 
epee : INTO 417 
5090 : IF A TRAP TO VECTOR 4 oes COME HERE TO SEE IF THE TRAP OCCURRED 
5091 ;DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
5092 :;TO THE SPURIOUS TRAP TO 4 HANDLER. 
5093 027434 011604 TTC25: MOV (SP) .R4 
5094 7436 020427 027276 CMP RG ATTC2+2 
5095 027442 001402 BEQ 1$ 
5096 ior? 000137 036166 JMP a#CPSPUR 
5097 027450 011637 001236 1$: MOV (SP) ,@#STMP2 
5098 027454 022626 CMP (SP)+,(SP)+ 
5099 027456 104001 2$: ERROR 1 : (BUT FSDT)+ ST634 
ai 027460 000401 BR TTCDONE 
5102 :REPORT PC NOT INCREMENTED BY 2 DURING EXECUTION. 
5105 027462 TTC30: 
5104 027462 104001 1$: ERROR 1 3PC NOT 
5105 ; INCREMENTED 
5106 027464 TTCDONE : 
(1) 027464 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) :SEE IF THE USER HAS EXPRESSED 
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DEST'NATION MODES, MODE 7 (FL=0), TEST 


: THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH 5 ia (HAS 
i THE USER TYPED CONTROL G?) 


Wen ASAARERAARAAAALALARAARASARE RASA ELE RR RRR RARRRERR SARA RAR ARRAS AE SS | 


=*TEST 70 DESTINATION MODES, MODE 2 (FL=1), TEST 


-* 
:* THIS IS A TEST OF DESTINATION MODE 
- 2 USING STCOL WITH REGISTER 0 


MAAR AAAAAARAAAAASAASLASAASARASAR RRR RAR ARERR SAR AAR ERAS ASAR RAR RRR SS SS | 


SEQ 0129 


18170: SCOPE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #300.RO “SET UP FPS. 
LDFPS RO 
MOV #UUCTP1,RO :SET UP THE ACO OPERAND. 
LDD (RO) ACO 
MOV #UUC2 , aS TMP2 
MOV #UUCBF ORO 

UUC2:  STCDL ACO, (RO)+ :TEST INSTRUCTION. 
CMP RO -MUUCBF O+4 :1S RO CORRECT? 
BEQ UUCDONE “BRANCH IF CORRECT. 

:REPORT RO INCORRECT. 

UUCS3: RO, 
MOV MUUCBF O+4, “ aesTeP3 

1$: ERROR 1 >RO NOT INCR BY 4 

: TEST DATA BUFFER: 
UUCTP1: .WORE 0,0.0.0 

1 

UUCBFO: ~ WORD -1,-1,-1 

UUCDONE : 
RSE TUP 


:GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

:THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


{EEA AERERAERAREKAERERAEAEREAARAERAAERAAEARERAEREREARAEEERER 


: TEST 71 DESTINATION MODES, MODE 4 (FL=1), TEST 


‘+ THIS IS A TEST OF DESTINATION MODE 
:* 4 USING STCDL WITH REGISTER 0 


ROE ee Wie ec AC OT MP NOU Ne oF TT 


+8171: SCOPE 

VVC1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #300,R0 sSET UP FPS. 
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DESTINATION MODES, MODE 4 (FL=1), TEST 


LDFPS RO 
MOV #VVCTP1.RO :SET UP THE ACO OPERAND. 
LDD (RO) ACO 
MOV #VVC2, aS TMP2 
MOV #VVCBFO+4 RO 
vvC2:  STCDL ACO,-(RO) : TEST INSTRUCTION. 
CMP RO. AVVCBFO :I1S RO CORRECT? 
BEQ VVCDONE 
:REPORT RO. INCORRECT. 
VVC3: RO, af$TMP 
mov #VVCBFO, SesTPs 
1$: ERROR 1 :RO NOT DECR BY 4 
BR VVCDONE 
:TEST DATA BUFFER: 
VVCTP1: .WORD 0.0.0.0 
-1 
VVCBFO: ~ WORD -1,-1,-1 
VVCDONE : 
RSE TUP 60 INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
*THE DESIRE TO CHANGE THE SOFTWARE 
“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
=THE USER TYPED CONTROL G?) 
J EAA AAAEAEAA EAA AAEEAAE AAA RARER AARAAERAAAAERAERAAAEEAEERRER EH 
: TEST 72 STCDI AND STCDL TEST 
ma THIS IS A TEST OF THE STCDI AND 
:* STCDL INSTRUCTIONS. NOTE THAT A 
:* SUBROUTINE, STCSUB. IS USED TO 
=« SET UP THE OPERANDS, EXECUTE THE STC 
:* INSTRUCTION AND CHECK THE RESULT. 
RAKE AAAEKARARAAARAAEAETAARAKRAAARARARARAREAEKAKCAREARAARARARARAREREREAEREERERER 
1ST72: SCOPE 
FIRST TEST STC WITH EXP=100 (EXCESS 200) 
"  LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#STCSUB *GO EXECUTE THE INSTRUCTION. 
1$ -WORD  20000,0,0,0 :ACO OPERAND. 
2$: .WORD 0,0 ; EXPECTED RESULT. 
3$: WORD <-1,-1 ie 
4$: 40300 “FPS BEFORE EXECUTION. 
40304 “FPS AFTER EXECUTION. 
140304 “ANTICIPATED ERRONEOUS FPS. 
of =REPORT RESULT INCORRECT. 
5$ ERROR 1 *RESULT INCORP. 
ERROR i sEITHER (BUT FLAG) 


SEQ 0130 
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CJKDDB.P11 12=MAR-80 07:22 172 STCDI AND STCDL TEST SEQ 0131 
| 
5197 027740 6$: :ST 662 | 
5198 | :OR CLEAR FLAG 
re :ST 774 
5301 sEXP=0 (OCT) FL=1 FIC=0 
5 WWC2: 
(1) LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5203 JSR PC ,a#STCSUB :GO EXECUTE THE INSTRUCTION. 
5204 1$: “WORD 40000,0.0,0 AC :ACO OPERAND. 
5205 2$: WORD : EXPECTED RESULT. 
5 3$: . WORD ~ ANTICIPATED ERRONEOUS RESULT. 
5 4$: 40313 FPS BEFORE EXECUTION. 
3208 40304 “FPS AFTER EXECUTION. 
5 140304 ANT ICIPA TED ERRONEOUS FPS. 
5210 -1 :EXPECTED F 
$211 S$: ERROR 1 OREPORT RESULT INCORRECT. 
5 le BR 6$ 
521 ERROR 1 :REPORT FPS INCORRECT. 
5214 6$: 
§215 
3216 sEMP=37 (OCT) FL=1~ FIC=1 
5217 030004 WwWC4: 
(1) 030004 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5218 030006 004737 031042 JSR EXECUTE THE INSTRUCT ION. 
5219 030012 047667 075757 157737 1$: WORD Greer PeLie 157789 167773 ACO OPERAND. 
5220 030022 055675 173757 2$: .WORD 55675 173757 sEXPECTED RESULT. 
5 4 0 122102 004021 3$: “WORD 122102,00402 “ANTICIPATED ERRONEOUS RESULT. 
52 3 030032 040717 4$: 40717 :FPS BEFORE EXECUTION. 
3208 030034 040700 40700 “FPS AFTER EXECUTION. 
030036 140705 140705 “ANTICIPATED ERRONEOUS FPS. 
5225 030060 177777 -1 sEXPECTED FEC. 
36 030042 104001 5$: ERROR 1 : (BUT ENBT) ST 632 
7 0 000401 BR 6$ 
5228 030046 104001 ERROR 1 :REPORT FPS INCORRECT. 
4 030050 6$: 
52 
5231 sEXP=40 (OCT) FL=1 FIC=1 
5232 030050 WWC5: 
(1) 030050 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5235 030052 004737 031042 JSR PC a¥STCSUB -GO EXECUTE THE INSTRUCTION. 
030056 950000 000000 000000 1S: .WORD 50000,0,0.0 “ACO OPERAND. 
5235 0 000000 000000 2$: .WORD 0,0 ;EXPECTED RESULT. 
030072 177777 #177777 3$: “WORD -1,-1 “ANTICIPATED ERRONEOUS RESULT. 
37 030076 4$: 40700 “FPS BEFORE EXECUT ON. 
5238 030100 140705 140705 “FPS AFTER EXECUTION. 
5239 030102 040705 40705 sANTICIP ATED ERRONEOUS FPS. 
5240 030104 000006 6 sEXPECTED F 
$241 030106 104001 5s: ERROR 1 -REPORT RESULT INCORRECT. 
S240 030110 00040 6$ 
$243 030112 104001 ERROR 1 = (BUT FIC) ST 004 :REPORT FPS INCORRECT. 
5244 -TO 305 INTO 
5245 030114 6$: 315 
5246 
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(OCT) 

LPERR 
SR 

. WORD 


(OCT) 

LPERR 
SR 

. WORD 


ERROR 


(OCT) 


LPERR 
JSR 


FL=1 FIC=0 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC. a¥STCSUB *GO EXECUTE THE INSTRUCTION. 
50000,0,0.0 :ACO OPERAND. 


sEXPECTED RESULT. 
ade “ANTICIPATED ERRONEOUS RESULT. 
“FPS BEFORE EXECUTION. 


ECUTION. 
: ANTICIPATED ERRONEOUS FPS. 
;EXPECTED FEC. 
sREPORT RESULT INCORRECT. 


1 ;(BUT FIC) ST 004 T 
3315 INTO 505 


Fl=1 = FIC=1 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC a#STCSUB =GO EXECUTE THE INSTRUCTION. 
46000,1,0,0 “ACO OPERAND. 
200, 1 :EXPECTED RESULT. 
-1,-1 “ANTICIPATED ERRONEOUS RESULT. 
“FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
ZANTICI PATED ERRONEOUS FPS. 
sEXPECTED F 
1. sREPORT RESULT INCORRECT. 
1 :REPORT FPS INCORRECT. 
FL=1 = FIC=1 
-SET UP THE LOOP ON ERROR ADDRESS. 
PC a#STCSUB *GO EXECUTE THE INSTRUCTION. 
45600,1,0,0 *ACO OPERAND. 
100.0 i EXPECTED RESULT. 
-1,-1 “ANTICIPATED ERRONEOUS RESULT. 


IPA 
FPS BEFORE EXECUTION. 
sFPS gh EXECUTION. 
ee TED ERRONEOUS FPS. 


:EXPECTED F 
1. :REPORT RESULT INCORRECT. 
1 :REPORT FPS INCORRECT. 
FL=0 FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,a#STCSUB :GO EXECUTE THE INSTRUCTION. 


SEQ 0132) 
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12=MAR sAR-80 07:22 172 STCDI] AND STCDL TEST SEQ 0133 
043600 000000 000000 1S: .WORD  43600,0.0.0 :ACO OPERAND. 
820000 177777 2$: .WORD  40000,-1 | sEXPECTED RESULT. 
000000 177777 33: “WORD 0,-1 : ANTICIPATED ERRONEOUS RESULT. 
040600 i$: 40600 “FPS BEFORE EXECUTION. 
040600 40600 “FPS AFTER EXECUTION 
140604 140604 “ANTICIPATED ERRONEOUS FPS. 
177777 af -EXPECTED FEC. 
104001 S$: ERROR 1 *BAD CONSTANT ST 066 
000401 BR 6$ 
104001 a ERROR 1 :REPORT FPS INCORRECT. 
sEXP=20 (OCT) FL=0  FIC=1 
wWC10: 
104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
004737 031042 JSR PC a#STCSUB “GO EXECUTE THE INSTRUCTION. 
000000 000000 1S: “WORD  44000,0,0,0 “ACO OPERAND. 
000000 177777 2$: .WORD 0,-1 i EXPECTED RESULT. 
177777 | 177777 3$: “WORD -1,-1 “ANTIGIPATED ERRONEOUS RESULT. 
040600 4$: 40600 “FPS BEFORE EXECUTION. 
140605 140605 “FPS AFTER EXECUTION. 
040600 40600 ZANTICIPA TED ERRONEOUS FPS. 
000006 6 sEXPECTED F 
104001 S$: ERROR 1 :REPORT RESULT INCORRECT. 
000401 BR 6$ 
104001 si ERROR 1 :BAD CONSTANT ST 066 
zEXP=10 (OCT), AC NEGATIVE, FL=0, FIC=1 
104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
004737 031042 JSR PC a#STCSUB =GO EXECUTE THE INSTRUCTION. 
142000 000000 000000 1S$: -WORD 142000,0,0,0  :ACO OPERAND. 
patty 177777 2$: .WORD  177600,-1 :EXPECTED RESULT. 
000200 000000 3$: “WORD  200,0 sANTICIPATED ERRONEOUS RESULT. 
040600 L$: 40600 “FPS BEFORE EXECUTION. 
040610 40610 “FPS AFTER EXECUTION. 
040600 40600 ANTICIPATED ERRONEOUS FPS. 
177777 ~1 ;EXPECTED F 
104001 S$: ERROR 1 : (BUT ENBT) ST 632 
000401 BR 6$ 
104001 ” ERROR 1 : (SET FN) ST 473 
zEXP=37 (OCT), FL=1. FIC=1, AC NEG. 
104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
004737 031042 JSR PC, a¥#STCSUB =GO EXECUTE THE INSTRUCTION. 
147600 000000 000000 1$ WORD  147600,0,0,0  :ACO OPERAND. 
000000 2$ WORD  140000,0 sEXPECTED RESULT. 
137777 000000 3$ 137777.0 “ANTICIPATED ERRONEOUS RESULT. 


: WORD : 
L$: 40700 :FPS BEFORE EXECUTION. 


on 


E 11 
“m, DIAG PART 2 MACY11 30A(1052) 12-MAR-80 07: tec ~— 1-117 


JKDDB KEF 
JKDDB.P11 12=MAR~80 07:22 172 STCDI AND STCDL T 
5345 030474 040710 40710 :FPS AFTER EXECUTION. 
5 030476 177777 =] “ANTICIPATED ERRONEOUS FPS. 
5 0 177777 =1 -EXPECTED FEC. 
5 030502 104001 5$: ERROR 1 : (BUT 27840 oF ST 375 
5349 030504 000401 BR 6$ 
5350 030506 104001 ERROR 1 ouTe 3 
5351 030510 6$: 
535¢ 
535 sEXP=37 (OCT), FL=1, FIC=1, AC NEG 
5354 030510 ww 13: 
(1) 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5355 030512 004737 031042 JSR Pc awsTCs “GO EXECUTE THE INSTRUCTION. 
5356 030316 147600 000000 001000 1S: . WORD 14 800.0°1000,0 “ACO OPERAND. 
5357 030526 137777 177777 2$: .WORD 137777,177777 sEXPECTED RESULT. 
5358 030532 140000 177777 3$: "WORD 140000.177777 “ANTICIPATED ERRONEOUS RESULT. 
5359 030536 040707 4$: 40707 :FPS BEFORE EXECUTION. 
5360 030540 040710 40710 “FPS AFTER EXECUTION. 
5361 030542 177777 -1 “ANTICIPATED ERRONEOUS FPS. 
5362 030544 177777 @] -EXPECTED FEC. 
5363 030546 104001 5$: ERROR 1 :(BUT COUT) ST 375 
5364 030550 000401 BR 6$ *TO 274 INTO 074 
5365 030552 104001 ERROR 1 “REPORT FPS INCORRECT. 
3366 030554 6$ 
5368 ExXP=41 (OCT), AC NEG, FL=1, FIC=1 
5369 030554 
(1) 030554 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5370 030556 004737 031042 JSR PC, a#STCSUB =GO EXECUTE THE INSTRUCTION. 
$371 030962 150200 000000 000000 1$: -WORD 150200,0,0.0  :ACO OPERAND. 
5372 030572 000000 000000 2$: WORD sEXPECTED RESULT. 
c 030576 177777 177777 3$: “WORD = oe “ANTICIPATED ERRONEOUS RESULT. 
5374 030602 00 4$: 700_ “FPS BEFORE EXECUTION. 
5375 030604 140705 140705 “FPS AFTER EXECUTION. 
5376 030606 177777 -1 “ANTICIPATED ERRONEOUS FPS. 
5377 030610 000006 6 :EXPECTED FEC. 
5378 030612 104001 5$: ERROR 1 sREPORT RESULT INCORRECT. 
5379 030614 000401 BR 6$ 
5380 030616 104001 ERROR 1 : (BUT EZBT) ST 377 
5381 030620 6S: 
5382 sEXP=40 (OCT), AC NEG, FL=1, FIC=1 
5383 030620 WwWwC15: 
(1) 030620 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5384 030622 004737 031042 JSR PC ,@WSTCSUB 60 EXECUTE THE INSTRUCTION. 
5386 030636 000000 000000 2$: .WORD 0,0 ;EXPECTED RESULT. 
2387 030642 100000 177600 3$: “WORD  100000,-200 -ANTICIPATED ERRONEOUS RESULT. 
5389 030646 040700 4$: 40700 :FPS BEFORE EXECUTION. 
5390 030650 140705 140705 “FPS AFTER EXECUTION. 
5391 030652 040700 40700 ANTICIPATED ERRONEOUS FPS. 
5392 030654 000006 é, sEXxPECTED F FEC. 
5393 030656 104001 5$: ERROR 1 COUT) ST 360 
5394 030660 000401 BR 6$ *TO 654 INTO 454 
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mn ERROR 1 :REPORT FPS INCORRECT. 
sEXP=40, AC NEGATIVE, FL=1, FIC=1 
wWC16: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#STCSUB -GO EXECUTE THE INSTRUCTION. 
1$: “WORD 150001,0,0,0  :ACO OPERAND. 
2$: . WORD ;EXPECTED RESULT. 
3$: “WORD O50 00.0 “ANTICIPATED ERRONEOUS RESULT. 
4$: 40700 “FPS BEFORE EXECUTION. 
140705 “FPS AFTER EXECUTION. 
~1 -ANTICIPATED ERRONEOUS FPS. 
6 -EXPECTED FEC. 
5$ ERROR 1 :REPORT RESULT INCORRECT. 
ie ERROR 1 sREPORT FPS INCORRECT. 
: EXP 40 (OCT), AC MOST NEG LONG INT, FL=1 
WWC17: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#STCSUB -GO EXECUTE THE INSTRUCTION. 
1$ -WORD 150000.0,0,0 :ACO OPERAND. 
2$: .WORD  100000,0 sEXPECTED RESULT. 
3$: .WORD 0,0 : ANTICIPATED ERRONEOUS RESUL 
4$: 40700 FPS BEFORE EXECUTION. 
710 -FPS AFTER EXECUTION. 
140705 “ANTICIPATED ERRONEOUS FPS. 
-1 -EXPECTED FEC. 
5$ ERROR 1 : (BUT NBIT) ST 654 
BR “OR (BUT COUT) ST 454 
- ERROR 1 :REPORT FPS INCORRECT. 
:EXP=20, AC = MOST NEG INTEGER, FL=0, FIC=1 
WwWC18: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#STCSUB -GO EXECUTE THE INSTRUCTION. 
1$: -WORD 144000.1,0,0 | ;ACO OPERAND. 
2$: .WORD  100000,-1 EXPECTED RESULT. 
3$: .WORD  100000,177400 ANTICIPATED ERRONEOUS RESULT. 
4$: 40600 sFPS BEFORE EXECUTION. 
40610 FPS AFTER EXECUTION. 
140605 “ANTICIPA TED ERRONEOUS FPS. 
of “EXPECTED FEC. 
S$ ERROR 1 : (BUT FL) ST 633 
0 655 INTO 654 
ERROR 1 : REPORT ips INCORRECT. 
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5445 031040 000534 63: BR wwwC DONE 
5447 ;THIS SUBROUTINE, STCSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
5448 - THE STCDI OR STCOL INSTRUCTION AND CHECK THE RESULTS. A CALL 
$449 :TC IT IS MADE THUS: 
5450 3 
5451 : JSR PC ,a4STCSUB 
5452 ACARG: WORD X,X,X,X ;AC OPERAND 
5453 RES: “WORD KX <OAROR Re +} a 
5454 ERRES: .WORD KX RE SUL 
5455 : FPSB: .WORD X FPS BEFORE EXECUTION 
5456 : FPSA: ~ WORD 7 “FPS AFTER EXECUTION 
5457 : ERFPS: .WORD X “ERROR FPS. 
5458 : FEC: x “EXPECTED FEC 
5459 ERR1: ERROR 1;DATA ERROR. 
5460 ONT 
5461 : ERR2: ERROR 1;FPS ERROR. 
Pry CONT: sRETURN ADDRESS 
5464 THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
5465 “THE STCD1 OR STCDL INSTRUCTION IS EXECUTED. 
5466 > THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
5467 >COMPARED WITH FPSA IF THIS TOO IS CORRECT STCSUB RETURNS CONTROL 
>TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 
5469 : COMPARE IT TO oe ay IF THIS MATCHES THEN STCSUB WILL RETURN 
:TO THE ERROR CALL AT ERR2, OTHERWISE STCSUB ITSELF 
5471 “REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
5472 =STCDI OR STCDL IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
5473 ‘ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
5474 : THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES 
5475 “WILL TRANSFER TO CALL AT ERR1. OTHERWISE THE 
5476 “RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCSUB WILL 
rag hi sREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
5479 031042 012601 STCSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
5480 031044 012700 000200 MOV #200,R0 -SET UP THE ACO OPERAND. 
5481 031050 170100 LDFPS RO 
5482 031052 010100 MOV R1.RO 
5483 031054 172410 LDD (RO) ,ACO 
5484 031056 012702 031322 MOV #STCIBF ,R2 : INITIALIZE THE OUT PUT BUFFER. 
5485 031062 012700 000004 MOV #4 R 
031066 012722 177777 1$ MOV #=-1,(R2)+ 
$487 031072 077003 SOB RO, 
3488 031074 016100 000020 MOV 20(R1).RO :SET THE FPS. 
031100 170100 LDFPS RO 
$490 031102 012737 031114 001236 MOV #2%, akSTMP2 
5491 031110 012700 031322 MOV #STCIBF RO 
23 031114 175410 2$: STCDL ACO, (RO) : TEST INSTRUCTION. 
5494 031116 170204 STFPS RG :GET THE FPS. 
5495 031120 170305 STST R5 soET THE FEC. 
5496 031122 010102 MOV R1,R2 
$497 031124 010237 001240 MOV R2- a#STMP3 
$498 031130 062702 000010 ADD #10,R2 
5499 031134 010237 001244 MOV R2, aWSTMPS 
$500 031140 012737 031322 001242 MOV #STCIBF ,aaSTMP4 
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12=MAR=B0 07:2 STCDI AND STCDL TE SEQ 0137 
1146 010437 001250 MOV R4, aeSTMP7 
1152 016137 000022 001252 MOV 22(R1) ,a#$TMP10 
1160 01 102 MOV R1_.R2 | 
1162 70 10 ADD #10,R2 } 
1166 012700 ithe MOV #STCIBF RO :SEE IF THE RESULT IS CORRECT. | 
1172 012703 000002 MOV #2,R | 
1176 022022 3$: CMP (RO) +, (R2)+ | 
1 001014 BNE 15$ 
1 077303 S0B R3,3$ | 
1 016102 000022 MOV 22(R1).R2 | 
1 19 pe CMP R2,R4 SEE IF THE FPS IS CORRECT. 
121 1085 BNE 20$ “BRANCH IF INCORRECT. 
1214 005 TST R2 
1216 10000 BPL 4$ 
031 20 026105 000026 CMP 26(R1) RS :SEE IF THE FEC IS CORRECT. | 
031224 001027 BNE 25$ “BRANCH IF INCORRECT. | 
031226 000161 000036 4$: JMP 36(R1) : RETURN. 
:DATA ERROR: 
“SEE IF THE FAILURE WAS ANTICIPATED. 
031232 010102 15$: MOV R1,R2 
1234 062702 000014 ADD #14.R 
031240 012700 031322 MOV #STCIBF RO 
031244 012703 000002 MOV a 
031250 022022 16$: CMP (RO) +, (R2)+ 
031252 001003 BNE 17$ 
031254 077303 S08 R3,16$ 
031256 000161 000030 IMP 30(R1) 
031262 17$: 
:FAILURE WAS NOT ANTICIPATED SO REPORT INCORRECT RESULT HERE. 
031262 104001 18$: ERROR 1 :DATA BAD 
031264 000760 BR 4$ 
-FPS INCORRECT. SO SEE IF FAILURE WAS ANTICIPATED. 
31266 020461 000024 208: CMP R4.24(R1) 
031272 001002 BNE 
031274 000161 000034 MP 34(R1) 
031300 21$: 
-NOT ANTICIPATED SO REPORT BAD FPS HERE. 
031300 104001 22$: ERROR 1 -FPS BAD 
031302 000751 BR 4$ 
“REPORT INCORRECT FEC. ’ 
1304 016137 000026 001256 25$: MOV 26(R1) ,a#STMP12 
1312 010537 001254 MOV R5, a#STMP11 
1316 104001 268: ERROR 1 
1320 000742 BR 4$ 
:DATA BUFFER: 
031522 177777 177777 177777 STCIBF: .WORD -1.-1.-1.-1 
031330 177777 
031332 wwWCDONE : 
031332 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 


“THE DESIRE TO CHANGE THE SOF TWARE 
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:VIRTUAL CONSOLE SWITCH ata (HAS 
:THE USER TYPED CONTROL G?) 


FF SSAA AAAARARAAAAAARAAAAERARRAARARAAAREARARARARAARAARAARERARAREHARE 


;*TEST 73 
-* THIS IS A TEST OF STCFL AND STCFI. IT 


** 
$173: 


t 


;* MAKES USE OF THE SAME S 
;* WHICH WAS USED TO TEST STCDL AND STCDI. 


SCOPE 


STCFL AND STCFI TEST 


UBROUTINE, STCSUB, 


MARAAAASAALAASLALASZASRSASAASAAAAARARAAASAASRA RR ARERR RR RR RRR RRR RRRA RRS ASSES S| 


;EXPONENT=37, FL=1 
KXC1: 


6$: 


XX CDONE : 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#STCSUB -GO EXECUTE THE INSTRUCTION. 
47777,-1,-1,~-1 :ACO OPERAND. 


77777,177600 s EXPECTED RESULT. 

77777 177777 ANTICIPATED ERRONEOUS RESULT. 
sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
me ERRONEOUS FPS. 

sEXPECTED F 
is 7X11(1,0)+0 ST 773x 
1 sREPORT FPS INCORRECT. 


;GO INITIALIZE THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


[EERE RERKARAREAERAERERAAAKAKERAERARAEARARAEREREAAARAEKEAEEEAARERAORAEEAEEEE 


: TEST 74 
:* THIS IS A TEST OF THE STEXP 


STEXP TEST 


'MmeOAARAASASAALALAALALELASAAAAAARAASRASRRSAA RS AR ARR ARRAS RARARER ARRAS ASAD SD | 


; EXP = 100 (EXCESS 200) 
YYC1: 


*® INSTRUCTION 

*"* 

S174: SCOPE 
LPERR 
JSR 

1$: . WORD 

23: -100 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC awsT XSUB 
20600.0,0,0 AC 
sEXP RES 


oa 


SEC 0138 


L 
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STEXP 

52525 
40000 
40010 
40000 
ERROR 


BR 
ERROR 


SEQ 0139 
sERROR EXP. 
sFPSB 
sFPSA 

sERROR FPS 
1 ;BAD EXP 
6$ 
1 3+(BUT ENBT) ST 376 


200 (EXCESS 200) 


LPERR 
JSR 
WORD 


201 


BR 
ERROR 


375 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC, a¢sTXSUB *GO EXECUTE THE INSTRUCTION. 
40000,0,0,0 -ACO OPERAND. 


; EXPECTED hp yt ame 
ANTICIPATED ERRONEOUS RESUL 
S BEFORE EXECUTION. 
‘EPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 
1 ;REPORT RESULT INCORRECT. 


; (BUT_EZBT) ST 071 
:T0 072 INT 272 


(EXCESS 200) 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC. a4STXSUB *GO EXECUTE THE INSTRUCTION. 
40200,0,0,0 *ACO OPERAND. 


;EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 


:FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
is sREPORT RESULT INCORRECT. 
1 ;(BUT_EZBT) ST_071 


:T0 272 INTO 072 


(EXCESS 200) 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC a#STXSUB ‘GO EXECUTE THE INSTRUCTION. 
77200,0,0,0 “ACO OPERAND. 


;EXPECTED EXPONENT RESULT. 
; ANTICIPATED ERRONEOUS _RE 
;FPS BEFORE EXECUTION. 


OUS FP 
1 “REPORT RESULT INCORRECT. 
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6$: 


BR 
ERROR 


1 (EXCESS 200) 


156 


LPERR 
JSR 
. WORD 


6$ 
1 


PC, a#STXSUB 
200,0,0,0 


PC ,@#STXSUB 


K 11 
12-MAR-80 07:25 PAGE 1-123 
STEXP TEST 


; (BUT_ENBT) ST_376 
:T0 471 INTO 071 


;SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 


;EXPECTED EXPONENT RESULT. 
: ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
; ANTICIPATED ERRONEOUS FPS. 
:REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 


(EXCESS 200) 


:SET UP THE LOOP ON ERROR ADDRESS. 
[GO EXECUTE THE INSTRUCTION. 


33400.0.0.0 :ACO OPERAND. 


1 
1 


YYCDONE 


;EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 

:FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 


REPORT RESULT INCORRECT. 
sREPORT FPS INCORRECT. 


; THIS SUBROUTINE, STXSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
: THE STEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 
; TO IT IS MADE THUS: 


JSR 
ACARG: 


RES: 


ERRES: 
FPSB: 


FPSA: 
ERFPS: 
ERR1: 


ERR2: 
CONT: 


PC ,@#STXSUB 

-WORD X,X,X.X :AC_OPERAND 

-WORD X EXPECTED RESULT 
-WORD X +3 RESULT 

-WORD X FPS BEFORE EXECUTION 
-WORD X FPS te EXECUTION 
. WORD x é * 

ERROR 1; io ERROR. 

ERROR 1;FPS ERROR. 


;RETURN ADDRESS 


“THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 


— 


SEQ ~— 


L 11 : 
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5698 ;THE STEXP INSTRUCTION IS EXECUTED. 
5699 -THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
5700 *COMPARED WITH FPSA IF THIS TOO IS CORRECT STXSUB RETURNS CONTROL 
5701 :TO THE CALLING ROUTINE A T CONT. IF THE FPS IS BAD STXSLB 

5702 =COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN STXSuB WILL RETURN 
5703 *TO THE ERROR CALL AT ERR2, OTHERWISE STXSUB ITSELF 

5704 “REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
5705 >STEXP IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 

5706 > ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

5707 :THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STXSUB 

5708 WILL TRANSFER CONTROL TO T L AT ERR1. OTHERWISE THE 
5709 “RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STXSUB WILL 

9710 “REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 

ay 031674 012601 STXSUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 

5713 031676 010102 MOV R1,R2 

714 031700 010237 001240 MOV R2. aWSTMP3 

5716 031710 012237 001244 MOV (R25 +, aASTMPS 

5717 031714 01 031762 001236 MOV # 2 

5718 031722 012737 123456 032102 MOV #123456, aaSTXBF 

5719 031730 012737 076543 032104 MOV #76543, Q#STXBF +2 

5720 031736 012700 000200 MOV #200,R0 

$721 031742 170100 LDFPS RO 

5722 1744 010100 MOV :SET UP THE ACO OPERAND. 

5723 031746 172410 LDD Roo” ACO 

5724 031750 016100 000016 MOV 16(R1) RO :SET THE FPS. 

5725 031754 170100 LDFPS RO 

5726 031756 012700 032102 MOV #STXBF ,RO 

5727 031762 175010 1$: STEXP ACO, (RO) :TEST INSTRUCTION. 

5728 031764 170204 STFPS = sGET FPS. 

5729 031766 010437 001250 MOV R4,a4STMP?7 

« 031772 016137 000016 001252 MOV 16(R1) ,a#STMP10 

5731 013737 032102 001242 MOV @ASTXBF aASTMP4 

5732 032006 026137 000010 032102 CMP 10(R1),a4STXBF ;:WAS RESULT CORRECT? 

5733 032014 001411 BEQ S$ “BRANCH IF CORRECT. 

5734 032016 026137 000012 032102 CMP 12(R1) ,.@ASTXBF ;OTHERWISE SEE IF THE FAILURE WAS ANTICIPATED. 
5735 032024 001002 BNE 

5736 032026 000161 000022 JMP 22(R1) 

5738 -IF NOT ANTICIPATED REPORT ERROR HERE. 

5739 032032 2$: 

5740 032032 104001 3$: ERROR 1 -EXP BAD 

5761 032034 000161 000030 4$: JMP 30(R1) 

5743 032040 020461 000016 5$: CMP R4,16(R1) :SEE IF THE FPS IS CORRECT. 

5744 032044 001407 BEQ 1 “BRANCH IF CORRECT. 

5745 032046 020461 000020 CMP R4,20(R1) “SEE IF THE FAILURE WAS ANTICIPATED. 
5746 032052 001002 BNE 

5747 032054 000161 000026 IMP 26(R1) 

5749 -FPS ERROR WAS NOT ANTICIPATED SO REPORT ERROR HERE. 

5750 032060 ; 

5751 032060 104001 7$: ERROR 1 -FPS BAD 

5732 032062 000764 BR 4$ 
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CJKDDB.P11 12=MAR=80 07:22 174 STEXP T SEQ 0142 
5754 SEE IF MORE THAN ONE WORD WAS WRITTEN IN THE OUTPUT BUFFER. 
$755 0 022757 076543 032104 is: CMP #76543, aMSTXBF +2 
5756 032072 BEQ 4$ 
5757 032074 194061 11$: ERROR 1 | sFDFL+O ST 347x 
2738 032076 BR 4$ 
$760 032100 177777 of 
5761 032102 177777 177777 177777 STXBF: .WORD <-1,-1,-1,-1,-1 
“ 032110 177777 177777 
a7e$ 032114 YYCDONE : 
(1) 032114 104413 RSETUP £60 INITIALIZE THE FPS AND STACK: AND 
(1) “SEE IF THE USER HAS EXPRESSED 
(1) ; THE DESIRE TOC THE SOF TWARE 
(1) ‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
mSy = THE USER TYPED CONTROL G?) 
5775 SRR RR EEE EERE RRR REE REE EERE REE ERE EERE ee 
(3) : TEST 75 STST TEST 
(4) . THIS IS A TEST OF THE STST 
(4) :* INSTRUCTION. FIRST AN ILLEGAL FPS OP CODE 
(4) :* CINSTRUCTION) IS USED TO ENTER 
(4) =* ERROR CONDITION IN THE FEC Hla 
(4) =x FEA. THE STST IS EXECUTED AND 
(4) :* THE FEC AND FEA ARE CHECKED 
(3) ei LARA REE EREE REE EREREEREEERERERREREREAEEERERREEEEE EEE 
5{2) 032116 000004 S175: SCOPE 
5777 032120 72(1: 
(1) 032120 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5778 032122 012700 040000 MOV #40000 ,RO *SET FPS. FID=1. 
5779 032126 170100 LDFPS RO 
5781 032130 170003 77C2: .WORD 170003 : ILLEGAL FPP 
5783 032132 012700 032306 MOV #72 (BF RO :SET UP THE OUTPUT BUFFER. 
5784 032136 012710 177777 MOV (RO) 
5785 032142 012760 177777 000002 MOV rate SRO) 
5786 032150 012737 032156 001236 MOV #7703, a#$STMP2 
3787 032156 170310 77C3: STST ~~ (RO) :GET FEC AND 
5789 032160 170204 STFPS RG :GET FPS. 
5790 032162 O12 032306 MOV CBF .RO 
5791 032166 011037 001240 MOV (hos SO ssTHP3 
5792 032172 016037 000002 001242 MOV 2 (ROS ars TMP 
5793 032 012737 000002 001244 MOV MPS 
5794 032 012737 032130 001246 MOV 45535 aS TMPS 
5795 032214 010437 001250 MOV R4,a4STMP7 
3796 032220 012737 140000 001252 MOV #140000, a#$TMP10 
5798 032226 022710 000002 CMP #2.(RO) :SEE IF FEC IS CORRECT. 
5799 032232 001010 BNE 22¢5 “BRANCH IF INCORRECT. 
5800 032234 022760 032130 000002 CMP #2702,2(RO) “SEE IF FEA, ADDRESS. IS CORRECT. 
5801 032242 001 BNE 72€10 “BRANCH IF INCORRECT. 
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3808 


SaaS esas eee eeseee 


ie 


032244 
039950 
032252 


032316 


032320 
032324 


022704 
001013 
000422 


104001 
000420 


022760 


104001 
000406 
177777 


177777 


012706 
104413 


30 
174037 


140000 


177777 000002 


177777 =177777 


001100 


144724 
040600 


040600 
000004 


032404 
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STST T 


CMP #140000,R4 :SEE IF FPS IS CORRECT. 
BNE 77(15 “BRANCH IF INCORRECT. 
BR 72CDONE 

:REPORT FEC INCORRECT 

27¢5: 

1$: ERROR 1 :STST BAD 
BR 727CDONE sFECKX 

=REPORT FEA INCORRECT 

27¢10: CMP #-1,2(RO) 
BEQ r7c13 

1$: ERROR 1 :STST BAD FEA 

7Z7CDONE 

ZZC12: 

1$: ERROR 1 :SET FD FL ST 636 
BR 7ZCDONE 

:REPORT FPS INCORRECT 

77(15: 

1$: ERROR 1 :FPS X AFTER ST ST 
BR 7ZCDONE 

:DATA BUFFER: 


ZZCBF: .WORD <-1,-1,-1,-1 
al 

ZZCDONE :MOV 
RSETUP 


ASTACK ,SP ;SET UP STACK POINTER 


RE HE SOF TWARE 
TUAL CONSOLE SWITCH 5 ial (HAS 


VIR 
"THE USER TYPED CONTROL 


| EAAAEKEKEREREREREEEREEREEAEEKEEKEREAAREEREREEEEERREREEERKERREREER 


SRTEST 76 at CASE TEST 
:sTHIS TEST IS at ig AS THE FORTRAN 4 BENCH MARKS 
:*IT WAS FOUND THAT THIS CODE FAILED EVEN THOUGH THE 
STICS. THE HARDWARE WAS 

BUT SINCE A TEST DEFICIENCY 

; *WAS ADDED. 
:*ALL THE TEST DOES IS PUT A MIXED NUMBER IN THE FPAC 

;*AND SUBTRACTS A WHOLE NUMBER FROM IT 

ICI TOI IAT TIO EINE IO CIO IO IOU OR UDR Rt kth it tk tits 


+8176: SCOPE 


AAD1: MOV #144724, -~(SP) ;PUT FRACTION ON STACK 
MOV #40600, -(SP) PUT EXPONENT ON STACK 
CLR -(SP) ;PUT SUBTRAHEND FRACTION ON STACK 
MOV ith » ~(SP)  ;PUT SUBTRAHEND EXPONENT ON STACK 
LDF 4(SP), ACO ; FP ACCUMULATORS 
SUBF (SP)+, ACO ;DO SUBTRACTION 


STF ACO, @#AADBF :GET AND STORE ANSWER 


:GO INITIALIZE THE FPS AND STACK: AND 


SEQ 0143 


“i 
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032416 


oce7 ar 


000004 
032737 
00 


00 
001122 
00 


12-MAR~-80 07:22 


036711 


152000 


001100 


000112 
000110 
032624 
146370 
146366 
146360 


MACY11 30A(1052) 
T76 


932404 


032406 


001336 


146424 


145312 


FREAK EAREREREKRARARKRKEREEAEKREREERKAEERAEKEEKKEKEEEE 


MARA AASASASDELSAALARAAAAAAALARSL AAS LASALARS RASA LARA ARRAS ALAS SS SD 


B i2 
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@#AADBF > IS EXPONENT CORRECT 
:IF YES GO ae FRACTION 
;BAD EXPONENT FROM SUBTRACTION 


oe Q#AADBF +2 :1S FRACTION CORRECT 


‘0 STORE STACK POINTER 


INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 
CHANGE THE 


: THE DESIRE 


TO SOF TWARE 
;VIRTUAL CONSOLE SWITCH a” (HAS 


: THE USER TYPED 


SARE WE ON APT 
NO DO THIS 


CONTROL G?) 


TEST ALWA 


TEST 
>* THIS TEST WILL VERIFY THE ABILITY OF THE KEF11-A FLOATING 
;* POINT PROCESSOR TO BE INTERRUPTED DURING EXECUTION 


: IF YS 

:IF YES THEN CHECK PASS COUNTER 
:AND ONLY DO IT ON FIRST PASS 

s INIALIZE A COUPLE OF COUNTERS 


MAKE SURE FP ag NON-ZERO 


;SAVE INTERRUPT 
:SA 


T FOR DONE ON THIS CHARACTER 
;SEND A_SECON CHARACTER 
ENABLE 


;SET INTERRUP, 


; INCREMENT COUNT 


7 IF NO INTERRUPT 
; CLEAR ALL BITS IN SLU 
RRUPT 


INTE 


Occ 
; SUBTRACT TIME FOR FP INSTRUCTION 
VE PRE LOOP 
:SET UP VECTOR FOR INTERRUPT FROM FP 
:MAKE COUNT NEGATIVE 
ON’T ALLOW INTERRUPTS ON FIRST CHARACTER 


12-MAR-80 07 
SPECIAL CASE TEST 
CMP #36711, 
BEQ 1$ 
ERROR 
1$: CMP #152000 
BEQ D 
ERROR 2 
AADBF: .WORD 0 
«WORD 0 
AADDONE: MOV ASTACK, SP 
RSETUP 
“TEST 77 orgs hs lil TEST 
:* F11 INTERRUPTABILITY 
:* OF MICRO=-CODE MULTIPLY LOOP. 
18177 SCOPE 
ZZD1: BIT #1, a@4*SENV 
BEQ ZZD2 
TST a¥SPASS 
BNE SEOP 
ZZD2: CLR R1 
CLR RO 
LDF #2, AC2 
MOV T .. STMPO 
MOV TPVEC+2,$TMP1 
MOV x T 
CLR PVEC+2 
CLR S 
CLRB T 
1$: TSTB a$STPS 
BPL 
CLRB a$TPB 
BIS WBIT6, aS$TPS 
2$: INC RO 
BNE 2$ 
RESET 
ERROR 3 
3$: SUB Y RO 
MOV RO Z 
MOV #7$,  TPVEC 
4$: COM RO 
CLR a$STPS 
CLRB T 
5$: TSTB a$TPSs 


:D 
: SEND FIRST CHARACTER 


T FOR READY 


BEFORE 


0 ERROR 


| 


/ 





CJKDDB KEF11-A DIAG PART 


CJKDDB.P11 —-12=MAR-BO 07:22 
5903 032570 100375 

§904 032572 105077 146354 
5905 032576 052777 000100 
5906 0 200 

5907 0 1376 

5908 032610 171227 040400 
5909 032614 171227 040400 
5910 0 

5911 0 104003 

5912 52684 022716 032610 
5913 0 1412 

5914 0 062706 000004 
5915 062767 000002 
5916 032644 016700 000004 
5917 052650 000740 

5919 032652 000027 

3920 052654 000000 

5921 

5922 032656 

5923 032656 042777 000100 
9984 052664 016767 146542 
5925 032672 016767 146336 
5926 032700 104413 


MACY11 30A(1052) 
177 


146344 


000010 


10$: 


ZZDDONE : 


C 12 
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INTERRUPTABILITY TEST 


BPL 5$ 

CLRB a$TPB ;SEND SECOND CHARACTER 

BIS WB1T6, @$TPS . :SET INTERRUPT ENABLE 

ue RO :D0 PRE LOOP 

MULF #2, AC2 :DO0 FP_INSTRUCTION 

MULF #2, AC2 :JUST INCASE INTERRUPT 
ae :CLEAR ALL STATUS BITS IN SLU 


:IF YES WE ARE 
;UPDATE STACK POINTER 


ADD As, P 
ADD #2, Z *ADD A LITTLE TIME TO PRE LOOP 
MOV Ze RO =PUT NEW COUNT IN LOOP COUNTER 
BR 4$ ;D0 IT ALL AGAIN 
. WORD 27 
. WORD 0 
BIC WBIT6, a$TPS ;CLEAR INTERRUPT ENABLE BIT 
V STMPO, TPVEC “RESTORE INTERRUPT VECTOR 
V SThP1, TPVEC+2 ;RESTORE INTERRUPT PRI 
RSETUP ; INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
ay, | DES CHANGE OF TWAR 
T ONSOLE SWITCH — (HAS 


: VIRTUAL C 
; THE USER TYPED CONTROL 


HAPPENS TOO LATE 


:NO INTERRUPT OCCURRED SO ERROR 
:1S PC ON STACK POINTING TO FP INSTRUCTION 


SEQ 0145 


CJKDDB KEF11-A DIAG PART 
CJKDDB.P11 


eR 
ee 


Lele oleleolololalea) 
3 
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005067 146172 
005067 146366 
005267 146404 
042767 100000 
BO 367 

3045 
ieee 
032730 
104401 033115 
016746 146352 
104405 
104401 033112 
013700 
001411 
5046 
012746 032776 
42 
5 
004710 
000240 
000240 
000240 
013737 000004 
012737 033034 
AEE 000001 
7 000004 
013737 001232 
104400 
042716 000020 
032777 010000 
1005 
005167 000020 
00402 
052716 000020 
012746 033104 
000137 
002056 
377 377 


MACY11 30A(1052) 


146376 


: s INDICAT E END~OF 

“END PAS 
‘SIF PSwio=1 
:*IF THERE IS A MONITOR GO 
;*IF THERE ISN'T JUMP TO LOOP 


D 12 
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END OF PASS ROUTINE 


.SBTTL END OF PASS ROUTINE 


S ARAEREAAAAAAAAAAEAAAAEAEEAAAAEAEAAARAAARAEARARERARAEARARRREKKHRE RAH EEE 


“ & INCREMENT THE PASS er os ($PASS) 


~PROGRAM AFTER 1 PASS THRU THE PROGRAM 
ASS #MXXXXX'" B ity XXXXX IS A DECIMAL NUMBER) 


TO IT 


{ERA AAAAAAEAAEARAAEAAEEREEARAAERAERRARARAKRKEAARERAAAERRARRAERRREERHREE 


sor: 


SEOPCT: .WORD 


SENDCT: 


$GET42: 


1$: 
SRTRN: 
$LOOP: 


SRTNAD: 
$TBIT: . 
SENULL: . 


STSTNM 
thn 


SPAS 
#100000, SPASS 
-~* 


SDOAGN 
a, 


SENDMG 
$PASS ,-(SP) 


#4.SP 
arsTMPO, ars 


#20, (SP) 
#BIT12,aSwR 


> ali 

#20, (SP) 
#$LOOP ,-(SP) 
a(PC)+ 

LOOP 

0 

-1,-1,0 


;ZERO THE TEST NUMBER 

:ZERO THE NUMBER OF ITERATIONS 

; INCREMENT THE PASS NUMBER 

:DON'T ALLOW A NEGATIVE PASS NUMBER 


; LOOP? 
“1 PASS FIRST TIME (QV)!!! 


ES 
“RESTORE COUNTER 


;TYPE ‘END PAS 
: SAVE PASS COUNT FOR TYPEOUT 


F NO OR 

; INSURE THE ‘'T’’ BIT . on 

: SETUP + AN RT! OR R 

:GO DO AN RTI OR RIT TO "Loap THE PSW 

“WITH A NCLEARED 'T’* BIT 

: ‘eo TG THE WORLD 
TO THE MONITOR 
ROOM 


FOR 

sACT11 

;SAVE CONTENTS OF LOCATION 4 
SET UP INCASE OF TRAP 
“NOTIFY MULTI-TESTER 

“NO TRAP SO DON'T RESET STACK 
=RESET STACK AFTER TRAP 
“RESTORE CONTENTS OF LOCATION 4 
PUSH OLD PSW AND PC ON STACK 
:CLEAR THE ‘'T’’ BIT 

;RUN ly enw TRAP? 


“IS IT TIME FOR TRACE TRAP 
F NO 


HERE FROM RTI 
RE TURN--THIS IS CHANGED TO AN ‘RTT"’ 
;1F_ IT IS A_LEGAL INSTRUCTION 
:RETURN TO TESTING 


:''T’’ BIT STATE INDICATOR 
;NULL CHARACTER STRING 


SEQ 0146 


ee et tt a tt a tt a et et a a a a a a eee ee ee eee ee 


LO LO ODOR OD OR OR RR RR FF RB RR RB RR FR RR FRR RR RR RR RR 
ae a a ed et ed = =) I) =) 4 4 = =) 8 = Ht st st ss os ss a ff 
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11 12-MAR-80 07:22 END OF PASS ROUTINE SEQ 0147 
033115 015 062412 0642116 SENDMG: .ASCIZ <15><12>/END PASS &/ 
O51 85 050060 051501 020123 
0331 00004 3 — | 
.SBITL SCOPE HANDLER ROUTINE 
J RAAAEAARAAAEAKAARARAERAAEREEAAARAARERARAAARARERREERRRARAREAEEHEHER ED 
“STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
; *AND LOAD THE TEST NUMBER(STSTN4) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
-*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
* * THE SuITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
+ *SW14= 1 LOOP ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
: *SwO9=1 LOOP ON ER 
: *SWO8=1 LOOP ON TEST IN SWR<7:0> 
7 *CALL 
;* SCOPE 3; SCOPE=I0T 
033132 $SCOPE : 
033132 104407 CKSWR 23 bpp FOR CHANGE IN SOF T-SWR 
033134 032777 040000 145776 1$: BIT #81T14,aSWR ;LOOP ON PRESENT TEST? 
033142 001114 BNE SOVER += VES IF SW14=1 
;MAARASTART OF CODE FOR THE XOR TESTERMAMIM 
033144 000416 SXTSTR: BR 6$ 37 1F RUNNING ON THE XOR™’ TESTER CHANGE 
:;THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
033146 013746 000004 MOV @VERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
033152 012737 033172 000004 MOV #5$ ,A#ERRVEC ::SET FOR TIMEOUT 
033160 005737 177060 TST a#177060 :3TIME OUT ON XOR? 
033164 012637 000004 MOV (SP)+,@MERRVEC ;;RESTORE THE es VECTOR 
033170 000463 BR $SVLAD ;GO TO THE NEXT TEST 
033172 022626 5$: CMP (SP)+, (SP)+ <I CLEAR THE STACK AFTER A TIME OUT 
033174 012637 000004 MOV (SP)+, “@FERRVEC : sRESTORE THE ERROR VECTOR 
033200 000423 BR 7$ LOOP ON THE PRESENT TEST 
033202 6$:;44A4#AEND OF CODE FOR THE xOR TESTERMMAMA 
033202 032777 000400 145730 BIT #B1TO8,aSWR :;LOOP ON SPEC. TEST? 
033210 001404 BEQ 2$ 37BR IF 
033212 127767 145722 145662 CMPB aSwR,.STSTNM > 0N THE RIGHT TEST? SWR<7:0> 
033220 001465 BEQ SOVER ;:BR IF Y 
033222 105767 145655 2$: TSTB SERFLG : HAS AN ERROR OCCURRED? 
033226 001421 BEQ ;:BR IF NO 
033230 126767 145661 145645 CMPB SERMAX , SERFLG : MAX. ERRORS FOR THIS TEST OCCURRED? 
033236 101015 EH | 3; 7BR OIF 
033240 032777 001000 145672 BIT #B1TO9,aSwR + = LOOP ON ERROR? 
033246 001404 BEQ 7BR IF NO 
033250 016767 145634 145630 /7$: MOV SLPERR ,$LPADR > SET LOOP ADDRESS TO LAST SCOPE 
033256 000446 BR SOVER 
033260 105067 145617 4$: CLRB SERFLG +s ZERO THE ERROR FLAG 
033264 005067 146012 CLR STIMES ;CLEAR THE MPBER OF ITERATIONS TO MAKE 
033270 000415 13h 1$ >:ESCAPE TO THE NEXT TEST 
033272 032777 004000 145640 35: BIT #81T11,aSWR TF a ITERATIONS? 
033300 001011 BNE YES 
033302 005767 146016 TST $PASS et A RST nes OF PROGRAM 
033306 001406 BEQ 1$ INHIBIT ITERATIONS 
033310 005267 145570 INC SICNT £2 INCREMENT ITERATION COUNT 


033314 026767 145762 145562 CMP $TIMES,SICNT : s CHECK THE NUMBER OF ITERATIONS MADE 
033322 002024 BGE SOVER ;;BR IF MORE ITERATION REQUIRED 


LLL LR LR ORR FRR 
ee eed eed eed ed ed 


: 


: 


LDO—®_L OO OO OE LOO LOD LO LO OE LOE PR LOL PR OO LOR LO OOO COO LP LO LO LOO LO i te i ee 
ee et tt a ss ss Ss SS St ss SH tS Ss Ss SS ss SS Ss ss ss Ss ss ss ss ss ss i fl 
ee ee et ee et ee ee a a ee a ee a a a a a ee a ee ee a a ee a ee ee eee ee ee ee ee ee ee ee 
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EF11=A DIAG PAR 
11 12=MAR=80 07:22 SCOPE HANDLER ROUT! SEQ 0148 
03 324 012767 000001 145552 18: MOV #1, $1CNT : ;REINITIALIZE THE ITERATION COUNTER 
03 332 016767 000052 145742 MOV SMXCNT,STIMES SET NUMBER OF ITERATIONS TO DO 
0 105267 145536 $SVLAD: INCB  $TSTNM :COUNT TEST NUMBERS 
033344 116767 145532 145750 MOVB §$TSTNM.STESIN ::SET TEST NUMBER IN APT MAILBOX 
033352 011657 145530 MOV (SP) , $LPADR :: SAVE SCOPE LOOP ADDRESS 
033 56 011667 145526 “OV (SP). $LPERR +: SAVE ERROR LOOP ADDRESS 
0 5 145716 CLR SESCAPE CLEAR THE ESCAPE FROM ERROR ADDRESS 
03 366 112767 1 165521 MOVB  #1,$ERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
033374 016777 145502 145540 $OVER: MOV STSTNM, aD ISPLAY i :DISPLAY TEST NUMBER 
033402 016716 145500 MOV SLPADR. (SP) =FUDGE RETURN ADDRESS 
033406 000002 RTI + FIXES PS 
033410 000001 SMXCNT: 1 *>MAX. NUMBER OF ITERATIONS 
.SBTTL ERROR HANDLER ROUTINE 
FARRAR AAAARARKEEAAERAREARKERAAKKAEARKAEEERARAREEREEREKERRHEKEE 
“THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
+ *SW HALT ON E 
* SW 3=1 INHIBIT ERROR TYPEOUTS 
+ *SW10=1 BELL ON ERROR 
eg LOOP ON ERROR 
*® 
:* ERROR N : sERROR=EMT AND N=ERROR ITEM NUMBER 
033412 SERROR: 
033412 104407 CKSWR 2 TEST FOR CHANGE IN SOF T-SwR 
033414 105267 145463 7$: INCB  $ERFLG >:SET THE ERROR FLAG 
033420 001775 BEO 7$ >:DON'T LET THE FLAG 60 T TO ZERO 
033422 016777 145454 145512 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
033430 032777 002000 145502 BIT #81710, aSWR >:BELL ON ERROR? 
033436 001402 BEQ 1$ ::NO - SKIP 
033440 104401 001306 TYPE SBELL ::RING BELL 
033444 005267 145442 1$: INC SERTTL ;:COUNT THE NUMBER OF ERRORS 
033450 011667 145442 MOV (SP) , SERRPC =:GET ADDRESS OF ERROR INSTRUCTION 
033454 162767 000002 145434 SUB #2, SERRPC 
033462 117767 145430 145424 MOVB  a$ERRPC.$ITEMB ::STRIP AND SAVE THE ERROR ITEM CODE 
033470 032777 020000 145442 BIT #81113, aSWR >:SKIP TYPEOUT IF SET 
033476 001004 BNE 20$ **SKIP TYPEOUTS 
033500 004767 002314 JSR PC_ERTYPE >:GO TO USER ERROR ROUTINE 
033504 104401 001313 pe TYPE  ,$CRLF 
033510 122767 000001 145620 CMPB §- WAPTENV,SENV _—_—; :RUNNING IN APT MODE 
033516 001007 BNE 2$ ::NO,SKIP APT ERROR REPORT 
033520 116767 145370 000004 MOVB  $ITEMB,21$ >:SET ITEM NUMBER AS ERROR NUMBER 
033526 004767 001126 JSR PC, SATY4 -:REPORT FATAL ERROR TO APT 
033532 000 218: -BYTE 0 
033533 000 ‘BYTE 0 
033534 000777 22$: BR 2e$ ::APT ERROR LOOP 
033536 005777 145376 2$: TST aSWR >:HALT ON ERROR 
033542 100002 BPL 3$ ::;SKIP IF CONTINUE 
033544 000000 HALT >:HALT ON ERROR! 
033546 104407 CKSWR =: TEST FOR CHANGE IN SOFT-SwR 


033550 032777 001000 145362 3$: BIT #B1T09,aSWR ;;LOOP ON ERROR SWITCH SET? 
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CJKDO8.P11 12-MAR-80 07:22 ERROR HANDLER ROUT]! SEQ 0149 

(1) 033556 001402 BEQ 4$ ;7;BR IF NO 
(1) 033560 01 or i$ 145324 MOV SLPERR, (SP) ; FUDGE RETURN FOR LOOPING 
(1) 033564 005767 145514 4$: TST SESCAPE 7: CHECK FOR AN ESCAPE ADDRESS 
(1) 033570 001402 BEQ 5$ — 3 3BR_IF NONE 
V4 ie EPLe 016716 145506 S$ MOV SESCAPE , (SP) ; FUDGE RETURN ADDRESS FOR ESCAPE 
(1) Oeeane 022737 033000 000042 CMP MSENDAD , 442 7 zACT=-11 AUTO-ACCEPT? 
(1) 033606 001001 BNE 6$ ; ;BRANCH IF NO 
(1) 033606 000000 HALT YES 
(1) 033610 6$: 

mi) 033610 000002 RTI 7 RETURN 

eit . .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
(2) SRR REAR EERE EERE EERE EERE ERRERE EEE 
(1) * SAVE RO-R5 
(1) :* : 
(1) : SAVREG 
$1) : UPON RETURN FROM $SSAVREG THE STACK WILL LOOK LIKE: 
(1) « eTOP=-~(+16) 
(1) p* +2---(+18) 
(1) se +4-—=-R5 
(1) 3% +6---R4 
(1) s% +8---R5 
(1) :%*+10=---R2 
(1) 3*+12---R1 
At + #+14=--R0 
( 
(1) 033612 SSAVREG: 
(3) 033612 010046 MOV RO,-(SP) 7 7PUSH RO ON STACK 
(3) 033614 010146 MOV R1,-(SP) : PUSH R1 ON STACK 
(3) 033616 010246 MOV R2,-(SP) 32 PUSH Re ON STACK 
(3) O03 0346 MOV R3,-(SP) 3 ; PUSH ON STACK 
(3) 033622 0446 MOV = go > :PUSH R& ON STACK 
(3) 033624 010546 MOV RS,-(SP) ::PUSH RS ON STACK 
(1) 033626 016646 000022 MOV 22(SP) ,-(SP) : SAVE PS OF MAIN FLOW 
(1) 033632 016646 000022 MOV 22(SP) .~(SP) 7: SAVE PC OF MAIN FLOW 
(1) 033636 016646 000022 MOV 22(SP) ,-(SP) 7 SAVE PS OF CALL 
(1) 033642 016646 000022 MOV 22(SP) ,-(SP) ; SAVE PC OF CALL 
Ht. 033646 RTI 
(1) > *RESTORE RO-R5 
(1) >*CALL: 
(1) ;* RESREG 
(1) 033650 SRE SREG: 
(1) 033650 012666 000022 MOV (SP)+,22(SP) ; RESTORE PC OF on 
(1) 033654 012666 000022 MOV (SP)+,22(SP) ; RESTORE PS OF 
(1) 033660 012666 000022 MOV (SP) +,22(SP) een TORE PC OF MAIN FLOW 
(1) 033664 012666 000022 MOV (SP) +,22(SP) RESTORE PS OF — FLOW 
(3) 033670 012605 MOV (SP)+,R5 es STACK INTO R 
(3) 033672 012604 MOV (SP)+,R4 3 STACK INTO R4 
(3) 033674 012603 MOV (SP)+,R3 ii STACK INTO R3 
(3) 033676 012602 MOV (SP)+,R2 $2 STACK IN 
(3) 033700 012601 MOV (SP+,R1 ::POP STACK INTO R1 
(3) 033702 012600 MOV (SP) +,RO ::POP STACK INTO RO 
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CJKDDB.P11 12-MAR-80 07:22 SAVE AND RESTORE RO-R5 ROUTINES SEQ 0150 

(1) 033704 000002 RT] 
5992 
me .SBTTL TYPE ROUTINE 

(3) . J FARA AAA AAAARARAAAAAAAAAEAEAARARARAAAAAERARAAAAAAAAAAEREEREREER ERE 

(1) = *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE - 
(1) : * THE a oe WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) > *NOT E1 SNULL CONTAINS THE CHARACTER i BE USED AS THE FILLER CHARACTER. 
(1) * eNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
(1) > *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

(1) : 

(1) 

(1) a1) “USING A TRAP — 

1) a :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) Z 

(1) oe TYPE 

(1) ;* ME SADR 

3 fe 

(1) 033706 105767 145245 $TYPE: TSTB $STPFLG sis THERE A TERMINAL ? 

(1) 033712 100002 BPL 1$ :;BR IF YES 

(1) 033714 000000 HALT ::HALT HERE IF NO TERMINAL 

(1) 033716 000430 BR 3$ ; sLEAVE 

(1) 033720 010046 1$: MOV RO,-(SP) VE RO 

(1) 033722 017600 000002 MOV a2(SP),RO ::GET ADDRESS OF ASCIZ STRING 

(1) 033726 122767 000001 145402 CMPB HAPTENV, SENV : ;RUNNING IN APT MODE 

(1) 033734 001011 BNE 62$ ::NO.,GO CHECK FOR APT CONSOLE 

(1) 033736 132767 000100 145373 BITB #APTSPOOL , SENVM : = SPOOL MESSAGE TO APT 

(1) 033744 001405 BEQ 62$ 72NO,GO CHECK FOR CONSOLE 

(1) 033746 010067 000004 MOV RO.61$ :: SETUP MESSAGE ADDRESS FOR APT 

(1) 033752 004767 000672 JSR PC, SATY3 :;SPOOL MESSAGE TO APT 

(1) 033756 000000 61$: . WORD : MESSAGE ADDRESS 

(1) 033760 132767 000040 145351 62$: BITB #APTCSUP,.SENVM ;;APT CONSOLE SUPPRESSED 

(1) 033766 001003 BNE 60$ 73 YES, SKIP TYPE OUT 

(1) 033770 112046 2$: MOVB (RO) +,-(SP) > = PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 033772 001005 BNE 4$ : :BR IF IT ISN‘T THE TERMINATOR 

(1) 033774 005726 TST (SP)+ se1F TERMINATOR POP IT OFF THE STACK 
(1) 033776 012600 60$: MOV (SP)+,RO TORE RO 

(1) 034000 062716 000002 3$: ADD #2, (SP) : : ADJUST RETURN PC 

(1) 034004 000002 RTI > :RETURN 

(1) 006 122716 000011 4$: CMPB #HT, (SP) > ;sBRANCH IF <HT> 

(1) 034012 001430 BEQ 4% 

(1) 034014 122716 000200 CMPB ACRLF. (SP) : ;BRANCH IF NOT <CRLF> 

(1) 034020 001006 BNE 5$ 

(1) 034022 005726 TST (SP) + ::POP <CR><LF> EQUIV 

(1) 034024 104401 TYPE si; TYPE A CR AND LF 

(1) 0340 001313 SCRLF 

(1) 0340 105067 000130 CLRB SCHARCNT cab ene CHARACTER COUNT 

(1) 034034 000755 BR 2$ :;GET NEXT CHARACTER 

(1) 034036 004767 000956 5$: JSR PC, ,STYPEC 3:;GO TYPE =e CHARACTER 

(1) 0340462 126726 145110 6$: CMPB SFILLC,(SP)+ 71S IT TIME FOR FILLER CHARS.? 

(1) 034046 001350 BNE 2$ 77 1F NO GO GET NEXT CHAR. 

(1) 034050 016746 145100 MOV SNULL ,- (SP) ; GET # OF FILLER CHARS. NEEDED 

(1) ; ;AND Me NULL CHAR. 

(1) 034054 105366 000001 7$: DECB 1 (SP) > :DOES A NULL NEED TO BE TYPED? 

(1) 034060 002770 BLT 6$ :;BR IF NO--GO POP THE NULL OFF OF STACK 
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12=MAR=B0 07:22 TYPE ROUTINE SEQ 0151 
34062 004767 000032 JSR PC .$STYPEC ::GO TYPE A 
% 105367 000072 DECB $CHARCNT = :DO NOT COUNT AS A COUNT 
34072 000770 BR 7$ -; sLOOP 
:HORIZONTAL TAB PROCESSOR 
034074 112716 000040 8$: MOVB #° .(SP) ; :REPLACE TAB WITH SPACE | 
034100 004767 000014 9$: JSR PC, $TYPEC :; TYPE A SPACE 
034104 132767 000007 000052 BITB #7.$CHARCNT ; BRANCH IF NOT AT 
034112 001372 BNE 9$ STOP 
034114 726 TST (SP) + «POP SPACE OFF STACK 
034116 72 BR ::GET NEXT CHARACTER 
034120 105777 145024 STYPEC: TSTB  a$TPS *:WAIT UNTIL PRINTER IS READY 
034124 100375 BPL $TYPEC 
034126 116677 000002 145016 MOVB  2(SP),a$TPB :LOAD CHAR TO BE TYPED INTO DATA REG. 
0341 122766 000015 000002 CMPB ss CR, 2 (SP) HIS CHARACTER A CARRIAGE RETURN? 
034142 001003 BNE 1$ “BRANCH IF NO 
034144 105067 000014 CLRB  $CHARCNT ;:YES==CLEAR CHARACTER COUNT 
034150 000406 BR STYPEX T 
034152 122766 000012 000002 1S: CMPB —s- ALF, 2 (SP) >:1S CHARACTER A LINE FEED? 
034160 001402 BEQ STYPEX : :BRANCH IF YES 
034162 105227 INCB = (PC) + =: COUNT THE CHARACTER 
034164 000000 SCHARCNT:.WORD 0 -: CHARACTER COUNT STORAGE 
034166 000207 S$TYPEX: RTS PC 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
J ERR AARAEEEAEAAEAAAAAEAAAKERAEEAARKEEREREEAEEREAEERERAEERE 
 STHIS ROUTINE IS USED TO CHANGE A 16-8I1T BINARY NUMBER TO A 6-DIGIT 
=*OCTAL (ASCII) NUMBER AND TYPE IT 
: s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
**® 
:* MOV NUM, - (SP) -:NUMBER TO BE TYPED 
:* TYPOS *:CALL FOR TYPEOUT 
:* .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
i* .BYTE ™ :;M=1 OR O 
:* ::1=TYPE LEADING ZEROS 
:* >:0=SUPPRESS LEADING ZEROS 
-t 
: *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; s$TYPOS OR $TYPOC 
ce MOV NUM, - (SP) -:NUMBER TO BE TYPED 
zs TYPON ==CALL FOR TYPEOUT 
-* 
: *$TYPOC--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** . 
:* MOV NUM, - (SP) : :NUMBER TO BE TYPED 
:* TYPOC *=CALL FOR TYPEQUT 
034170 017646 000000 $TYPOS: MOV @(SP) ,-(SP) ::PICKUP THE MODE 
034174 116667 000001 000211 MOVB 1(SP).S$OFILL ;:LOAD ZERO FILL SWITCH 
034202 112667 000207 MOVB (SP) + , SOMODE +1 =NUMBER OF DIGITS TO TYPE 
34206 062716 000002 ADD te, (SP) >> ADJUST RETURN ADDRESS 
34212 000406 BR $TYPON 
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EF11=A DIAG PART 
11 12=MAR=80 07:22 Y TO OCTAL (ASCII) AND TYPE 

034214 000001 $TYPOC: MOVB #1,$0FILL ::SET THE ZERO FILL SWITCH 
054202 000006 MOVB #6. $OMODE+1 *:SET FOR SIX(6) DIGITS 

0 000005 STYPON: MOVB #5.$0CNT =SET THE ITERATION COUNT 
034236 MOV R3.-(SP) +S SAV 

034240 MOV RZ. =(SP) : = SAVE Rs 

034244 000145 MOVB  $OMODE+1,R4 the NUMBER OF DIGITS TO TYPE 
034250 NEG R4 

034252 000006 ADD #6 RG : SUBTRACT IT FOR MAX. ALLOWED 
034256 000132 MOVB = R4. SOMODE :: SAVE IT FOR USE 

0% 000125 MOVB  $0FILL.R4 GET THE ZERO FILL SWITCH 
034 000012 MOV 12(SP)_R5 PICKUP THE INPUT NUMBER 

0342 CLR R3 S;CLEAR THE OUTPUT, WORD 
034274 1$ ROL R5 ;;ROTATE MSB INTO ‘'C’' 

034076 BR 3$ *GO DO MSB 

034 2$ ROL R5 : FORM THIS DIGIT 

034302 ROL R5 

034304 ROL R5 

034306 MOV RS .R3 

034310 3$ ROL R3 :GET LSB OF THIS, DIGIT 
034312 000076 DECB § $QMODE $TYPE THIS DIGIT? 

034316 7$ IF NO 

034320 177770 BIC #177770,R3 *:GET RID OF JUNK 

034324 :: TEST FOR O 

034326 TST R4 >: SUPPRESS THIS 0? 

0343 BE 5$ ::BR IF YES 

034332 4$ INC R4 :=DON'T SUPPRESS ANYMORE 0'S 
034334 000060 BIS #'0.R3 = :MAKE THIS DIGIT ASCII 
034340 000040 5$: BIS #" -R3 >:MAKE ASCII IF NOT ALREADY 
034344 000040 MOVB  R3,8$ :3SAVE FOR TYPING 

034350 034410 TYPE ,8$ *GO TYPE THIS DIGIT 

034354 000032 7$ DECB = $OCNT *:COUNT BY 1 

034360 BGT 2$ BR IF MORE TO DO 

034362 BLT 6$ ;BR_IF DONE 

034364 INC R4 ; INSURE LAST DIGIT ISN" T A BLANK 
34366 2$ oe THE 

034370 6$: MOV (SP) +,R5 > “RESTORE RS 

034372 MOV (SP) +_R4 RESTORE R4 

034374 MOV (SP) +-R3 *=RESTORE R3 

034376 000002 000004 MOV 2(SP) .4(SP) "SET THE STACK FOR RETURNING 
034404 MOV (SP) +, (SP) 

034406 RT! : RETURN 

034410 8$: BYTE 0 “STORAGE FOR ASCII DIGIT 
034411 "BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
034412 SOCNT: {BYTE 0 *:OCTAL DIGIT COUNTER 

034413 S$OFILL: .BYTE 0 :ZERO FILL SWITCH 

034414 SOMODE: .WORD 0 = =NUMBER OF DIGITS TO TYPE 
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“STHIS ROUTINE IS USED iy CHANGE A 16-81T ae NUMBER TO A 5-DIGIT 

: *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
R IS POSITIVE OR wiggly A SPACE OR A MINUS SIGN WILL BE TYPED 

* #BEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

;*REPLACED WITH SPACES. 
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12=MAR-80 07:22 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0153 

:*CALL: 
* MOV NUM, = (SP) ::PUT THE BINARY NUMBER ON THE STACK 
:* TYPDS :;GO TO THE ROUTINE 

034416 STYPDS: 

034416 010046 V RO,~(SP) ;zPUSH RO ON STACK 

034420 010146 MOV R1,-(SP) = :PUSH R1 ON STACK 

034422 010246 MOV R2,-(SP) . -:PUSH R2 ON STACK 

034426 010 MOV R3,-(SP) * R3 ON STACK 

034426 010546 MOV R5.-(SP) ::PUSH R5 ON STACK 

0344 012746 020200 MOV #20200,-(SP) = :SET BLANK SWITCH AND SIGN 

0 016605 000020 MOV 20(SP) RS ::GET THE INPUT NUMBER 

034440 100004 BPL 1$ *:BR IF INPUT I 

034442 005405 NEG R5 : ;MAKE THE BINARY NUMBER POS 

0 112766 000055 000001 MOVB #'=,1(SP) ::MAKE THE ASCII NUMBER NEG 

034452 1$: CLR RO si RO THE CONSTANTS INDEX 

034454 012703 034632 MOV #SDBLK ,R3 UP THE OUTPUT POINTER 

034460 112723 000040 MOVB #' ,(R3)+ *:SET THE FIRST CHARACTER TO A BLANK 

034464 005002 2$: CLR R2 ::CLEAR THE BCD NUMBER 

34466 016001 034622 MOV S$DTBL (RO) .R1 -:GET THE CONSTANT 

034472 160105 3$: SUB R1.R5 ::FORM THIS BCD DIGIT 

034474 002402 BLT 4$ :;BR IF 

034476 005202 INC R2 -: INCREASE THE BCD DIGIT BY 1 

034500 000774 BR 3$ 

034502 060105 4$: ADD R1,R5 : ADD BACK THE CONSTANT 

034504 005702 TST R2 ;;CHECK IF BCD DIGIT=0 

034506 001002 BNE 5$ THROUGH IF 0 

034510 105716 TSTB = (SP) 3 STILL DOING LEADING 0'S? 

034512 100407 BMI 7$ ::BR IF YES 

034514 106316 5$: ASLB (SP) : :MSD? 

34516 103003 BCC ::BR IF NO 

034520 116663 000001 177777 MOVB _—1( SP) ,-1(R3) :7YES--SET THE SIGN 

034526 052702 000060 6S: BIS #°0,R2 :*MAKE THE Bod DIGIT ASCII 

034532 052702 000040 7$: BIS #' ,R2 -:MAKE IT A SPACE IF NOT ALREADY A DIGIT 

034536 110223 MOVB  R2,(R3)+ ;3PUT THIS CHARACTER IN THE CulPU) BUFFER 

034540 005720 TST (RO) + =: JUST INCREMENT ING 

034542 020027 000010 CMP RO,#10 -:CHECK THE TABLE INDEX 

34546 002746 BLT 2$ ::GO DO THE NEXT DIGIT 

034550 003002 BGT 5 -:60 TO EXI 

034552 010502 MOV R5,R2 *:GET THE LSD 

034554 000764 BR 6$ ::G0 CHANGE TO ASCII 

034556 105726 8$: TSTB (SP)+ ; sWAS THE LSD THE FIRST NON-ZERO? 

34560 100003 BPL 9$ IF NO 

034 116663 177777 177776 MOVB <-1(SP),-2(R3) «CYES--SET THE SIGN FOR TYPING 

034570 105013 9$: CLRB (R3) -=SET THE TERMINATOR 

034572 012605 MOV (SP)+,R5 -:POP STACK INTO R5 

034574 012603 MOV (SP)+,R3 -:POP STACK INTO R3 

034576 012602 MOV (SP)+,R2 -:POP STACK INTO R2 

034600 012601 MOV (SP)+,R1 -:POP STACK INTO R1 

034602 012600 MOV (SP)+,RO -:POP STACK INTO RO 

034604 104401 034632 TYPE $DBLK * TYPE THE NUMBER 

034610 016666 000002 000004 MOV 2(SP) ,4(SP) ‘ADJUST THE STACK 

034616 012616 MOV (SP)+, (SP) 

034620 000002 RTI : RETURN TO USER 

034622 023420 $DTBL: 10000 
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CJKDDB.P11 12=MAR~80 07:22 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0154 
(1) 034626 000144 100. 
(1) 0346 000012 10. 
542 0 000004 SDBLK: .BLKW 4 
5999 _SBTTL APT COMMUNICATIONS ROUTINE 
(2) TTT TUTTE TTT TE TTT TELE TEET EET EE TEETER TERETE LTTE 
(1) 034642 112767 000001 000236 $ATY1: MOVB 4#1,$FFLG ::TO REPORT FATAL ERROR 
(1) 034650 112767 000001 000226 $ATY3: MOVB #1,$MFLG =:TO TYPE A MESSAGE 
(1) 034656 000403 BR SATYC 
(1) 034660 112767 000001 000220 SATY4: MOVB #1,$FFLG ::TO ONLY REPORT FATAL ERROR 
(1) 034666 SATYC 
(3) 034666 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
(3) 034670 010146 MOV R1.-(SP) > =PUSH R1 ON STACK 
(1) 034672 105767 000206 STB =—s-s SMFLG i: SHOULD TYPE A MESSAGE? 
(1) 034676 001450 BEQ 5$ NOT: BR 
(1) 034 122767 000001 144430 CMPB  —s- WAPTTENV,. SENV : ;OPERAT ING UNDER APT? 
(1) 001031 BNE $ SUF NOT: 
(1) 034710 132767 000100 144421 BITB § #APTSPOOL,.SENVM ::SHOULD SPOOL MESSAGES? 
(1) 034716 001425 BEQ $ -:IF NOT: BR 
(1) 034720 017600 MOV a4 (SP) RO GET MESSAGE ADDR. 
(1) 034726 766 000002 000004 ADD #2,4(SP) RETURN ADDR. 
(1) 034 005767 144360 1$ TST SMSGTYPE SEE IF BONE W/ LAST XMISSION? 
(1) 034 001375 BNE 1$ NOT: WAIT 
(1) 034740 010067 144366 MOV RO, $MSGAD ::PUT ADDR IN MAILBOX 
(1) 034744 105720 2$ TSTB. —_-« (RO) + -:FIND END OF MESSAGE 
(1) 034746 001376 BNE 2$ 
(1) 034750 700 144356 SUB $MSGAD RO ;3SUB START OF MESSAGE 
(1) 034754 ASR RO T MESSAGE LNGTH IN WORDS 
(1) 034756 010067 144352 MOV RO, $MSGLGT = >PUT LENGTH IN MAILBOX 
(1) 034762 012767 000004 144326 MOV #4. SMSGTYPE >TELL APT TO TAKE MSG. 
(1) 034770 13 BR 5$ 
(1) 034772 017667 000016 3$ MOV @4(SP) ,4$ ;sPUT MSG ADDR IN JSR LINKAGE 
(1) 035000 766 000002 000004 ADD 4(SP) RETURN ADDRESS 
(3) 035006 016746 142764 MOV 177776,~(SP) 2 PUSH 199776 ON STACK 
(1) 035012 767 176670 JSR $TY *:CALL TYPE MACRO 
(1) 035016 4$: : 
(1) 035020 S$: 
(1) 035020 105767 000062 10$: TSTB ~—s-: SFFLG ::SHOULD REPORT FATAL ERROR? 
(1) 035024 001416 BEQ 12$ *:IF NOT: 
(1) 035026 005767 144304 TST SENV ; 3RUNNING UNDER APT? 
(1) 035032 001413 BEQ 12$ -:7F NOT: BR 
(1) 035034 005767 144256 11$: TST SMSGTYPE 3 FINISHED LAST MESSAGE? 
(1) 035040 001375 BNE 11$ ic 1F NOT: WAIT 
(1) 035042 017667 144250 MOV a4 (SP) ,SFATAL T ERROR # 
(1) 035050 766 000002 000004 ADD #2.4(SP) =BUMP RETURN ADDR. 
(1) 035056 005267 144234 INC SMSGTYPE TELL APT TO TAKE ERROR 
(1) 035062 105067 000020 12$:  CLRB  $FFLG :7CLEAR FATAL FLAG 
(1) 035066 105067 000013 CLRB SLFLG : CLEAR LOG Ane 
(1) 035072 105067 000006 CLRB LG =:CLEAR MESSAGE FLAG 
(3) 035076 012601 MOV (SP)+,R1 *:POP STACK INTO R1 
(3) 035100 012600 MOV (SP) +_-RO ; POP STACK INTO RO 
(1) 035102 000207 TS RETURN 
(1) 035104 000 $MFLG: .BYTE 0 ; :MESSG.. FLAG 
(1) 035105 000 SLFLG: .BYTE 0 G FLAG 
(1) 0351 000 SFFLG: .BYTE 0 = FATAL FLAG 


M12 
CJKDD8 Ps, DIAG PART MACY11 ed eet 12-MAR~-80 § fs "PAGE 1-138 


CJKDDB.P11 12=MAR=80 07:22 COMMUNICATIONS ROUT! SEQ 

(1) 035110 EVEN 
(1) 000200 APTSIZE=200 
(1) 000001 APTENV=001 
(1) 000100 APTSPOOL =100 
(1) 000040 APTCSUP=040 

6000 

6001 

6002 .SBTTL TTY INPUT ROUTINE 
(2) 5 ee Be Be BB A Be BB BR A BT ABT TT TTC TCT TUTTO TOTO TOT TT TR He hth 
ci) -ENABL LSB 
(2) SLR RRR ERR ERE REE EEREEERERARE EEE EEE 
(1) ; *SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) -*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
(1) **SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
(1) = *WHEN OPERATING IN TTY FLAG MODE. 
(1) 035110 022767 000176 144022 $CKSWR: CMP #ASWREG, SWR ::1S THE SOFT-SWR SELECTED? 
(1) 035116 001074 BNE 15$ > :BRANCH IF NO 
(1) 035120 105777 144020 TSTB = aSTKS *:CHAR THERE? 
(1) 035124 100071 BPL 15$ -:IF NO, DON'T WAIT AROUND 
(1) 035126 117746 144014 MOVB  a@$TKB,-(SP) >: SAVE THE CHAR 
(1) 035132 042716 177600 BIC wrcie? (SP) -:STRIP=OFF THE ASCII 
(1) 035136 022726 000007 CMP SP)+ ::I1S IT A CONTROL G? 
(1) 035142 001062 BNE 13° :7NO, RETURN TO USER 
(1) 035144 126727 143764 000001 CMPB = $AUTOB, #1 ARE WE RUNNING IN AUTO-MODE? 
(1) 035152 001456 BEQ 15$ * =BRANCH IF YES 
(1) 035154 104401 035517 TYPE .SCNTLG : ECHO THE CONTROL-G (*G) 
(1) 104401 035524 $GTSWR: TYPE -SMSWR TYPE CURRENT CONTENTS 
(2) 035164 016746 143006 MOV SWREG, - (SP) ::SAVE SWREG FOR TYPEOUT 
(2) 035170 104402 TYPOC = 60 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 035172 104401 035535 TYPE SMNEW : PROMPT FOR NEW SWR 
(1) 035176 005046 19$: CLR -(SP) >: CLEAR COUNTER 
(1) 035200 005046 CLR -(SP) :: THE NEW SWR 
(1) 035202 105777 143736 7$: TSTB =. aS TKS **CHAR THERE? 
(1) 035206 100375 BPL 7$ *:IF NOT TRY AGAIN 
(1) 035210 117746 143732 MOVB  a$TKB,-(SP) ::PICK UP CHAR 
(1) 035214 042716 177600 BIC #°C177, (SP) = :MAKE IT 7-BIT ASCII 
q) 
(1) 035220 021627 000025 9$: CMP (SP) #25 ::1S IT A CONTROL-U? 
(1) 035224 001005 BNE 10$ : :BRANCH IF NOT 
(1) 035226 104401 035512 TYPE S$CNTLU :3YES, ECHO CONTROL-U (*U) 
(1) 035232 062706 000006 20$: ADD #6, SP ; IGNORE PREVIOUS INPUT 
(1) 035236 000757 BR 19$ *:LET'S TRY IT AGAIN 
(1) 
(1) 035240 021627 000015 10$: CMP (SP) ,415 s31S IT A <CR>? 
(1) 035244 001022 16$ 33 CH IF NO 
(1) 246 005766 000004 TST 4(SP) *:YES, IS IT THE FIRST CHAR? 
(1) 035252 001403 BEQ 11$ 33 CH IF YES 
(1) 035254 016677 000002 143656 MOV 2(SP) ,aSwR =:SAVE NEW SWR 
(1) 035262 062706 000006 11$: ADD #6,S5P *=CLEAR UP STACK 
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035 104401 001313 14$: TYPE SCRLF ::ECHO <CR> AND <LF> 
039 126727 143637 000001 CMPB sd SINTAG, #1 > :RE-ENABLE TTY KBD INTERRUPTS? 
035 1003 BNE 15$ > :BRANCH IF NOT 
039 Q 1 000100 143634 MOV #100, a$TKS ::RE-ENABLE TTY KBD INTERRUPTS 
03531 4 15$: RT] : RETURN 
035312 67 176602 16$: JSR PC $TYPEC =:ECHO CHAR 
035 18 ed. 7 000060 CMP (SP) , 460 > CHAR < 0? 
035 6 BLT 18$ > :BRANCH IF YES 
035324 021627 000067 CMP (SP) , #67 =:CHAR > 7? 
035 003015 BGT 1 : :BRANCH IF YES 
035 32 042726 000060 BIC #60, (SP)+ >:STRIP=OFF ASCII 
03938 766 000002 TST 2(SP) *:1S THIS THE FIRST CHAR 
035342 001403 BEQ 7$ : :BRANCH IF YES 
039 006316 ASL (SP) **NO, SHIFT PRESENT 
035 006316 ASL (SP) =: CHAR OVER TO MAKE 
035350 006316 ASL (SP) * F W ONE. 
035352 005266 000002 17$: INC 2(SP) -:KEEP COUNT OF CHAR 
035356 056616 177776 BIS =2(SP), (SP) -:SET IN NEW 
035362 000707 BR 7$ >:GET THE NEXT ONE 
035364 104401 001312 18$: TYPE ,$QUES =: TYPE ?<CR><LF> 
035370 00072 20$ *:SIMULATE CONTROL-U 
.DSABL LSB 
5 LARA AERA ERAEEEREEEREKKEAEKEKKEKHKKREKEREEAKEEEEEEKRERAREREKEKKE 
: STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** 
3;* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE == CHARACTER IS ON THE STACK 
+ *:WITH PARITY BIT STRIPPED OFF 
035372 011646 SRDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
035374 016666 000004 000002 MOV 4(SP) ,2(SP) >: SAVE THE PS 
035402 105777 143536 1$ TSTB =. AS TKS ::WAIT FOR 
35406 100375 BPL “A CHARACTER 
035410 117766 143532 000004 MOVB  a$TKB,4(SP) -:READ THE TTY 
035416 042766 177600 000004 BIC #A°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
035424 026627 000023 CMP 4(SP) #23 *:I1S IT A CONTROL-S? 
035432 001013 BNE 3$ > :BRANCH IF NO 
035434 105777 143504 2$: TSTB = @STKS >:WAIT FOR A CHARACTER 
035440 100375 BPL >:LOOP UNTIL ITS THERE 
35442 117746 143500 MOVB  a$TKB,-(SP) ->GET CHARACTER 
035446 042716 177600 BIC #°C177, (SP) **MAKE IT 7-B1T ASCII 
035452 022627 CMP (SP) +, #21 *:1S IT A CONTROL-Q? 
35456 001366 BNE 2$ *:IF NOT DISCARD IT 
035460 000750 BR 1$ : YES, RESUME 
35462 026627 000004 000140 38: CMP 4(SP) #140 *:I§ IT UPPER CASE? 
035470 002407 BLT I CH IF YES 
035472 026627 000004 000175 CMP 4(SP) #175 7:1S IT A SPECIAL CHAR? 
035500 003003 BGT > :BRANCH IF YES 
035502 042766 000040 000004 BIC #40,4 (SP) -=MAKE IT UPPER CASE 
035510 4$: RT] >:GO BACK TO USER 
035512 052536 005015 000 $CNILU: .ASCIZ /*U/<15><12> CONTROL ‘U'' 
035517 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12>  ::CONTROL ‘'G 
035524 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
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(1) 0355 020075 000 
(1) 0339 040 0470460 053505 SMNEW: .ASCIZ / NEW = 
Asy) 035542 036440 000040 
ei 63 .-SBTTL TRAP DECODER 
(2) SEERA EREAEEAERAAEEERAEEEREERAEAAEREKEKRARKEREREEERAEKAEERERREREK EE 
(1) * STHIS af oo PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
(1) **AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(1) + *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(1) **GO TO THAT ROUTINE. 
(1) 035546 010046 STRAP: MOV RO,-( SP) ::; SAVE RO 
(1) 035550 016600 000002 MOV 2(SP) RO :3GET TRAP ADDRESS 
(1) 035554 005740 TST - (RO) KUP BY 2 
(1) 035556 111000 MOVB (RO) ,RO 7 6GET RIGHT BYTE OF TRAP 
(1) 035560 006300 ASL RO sPOSITION FOR INDEXING 
(1) 035562 016000 035602 MOV STRPAD (RO) ,RO * > INDEX TO TABLE 
1) 035566 000200 RTS RO =:G0 TO ROUTINE 
(1) 
Vy :: THIS IS USE TO HANDLE THE ‘'GETPRI’’ MACRO 
(1) 035570 011646 STRAP2: MOV (SP) ,-(SP) : MOVE THE PC DOWN 
(1) 035572 016666 000004 000002 MOV 4(SP),2(SP) =:MOVE THE PSW DOWN 
ed 035600 000002 RTI : sRESTORE THE PSW 
s -SBTTL TRAP TABLE 
(3) :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) =*BY THE "TRAP’’ INSTRUCTION. 
rt ; ROUTINE 
(3) 035602 035570 $TRPAD: .WORD $TRAP2 
(3) 035604 033706 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
(3) 035606 034214 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 56 034170 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER E ) 
(3) 035612 034230 $TYPON L=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 035614 034416 $TYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 035616 035160 $GTSWR ::CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
(3) 035 035110 S$CKSWR ::CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
(3) 035622 035372 SRDCHR ::CALL=RDCHR §TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
(3) 035624 033612 SSAVREG ::CALL=SAVREG TRAP+11(104411) SAVE RO-RS ROUTINE 
(3) 035626 033650 SRESREG ::CALL=RESREG TRAP+12(104412) RESTORE RO-R5 ROUTINE 
6005 035 036230 .RSET ::CALL=RSETUP TRAP+13(104413) ROUTINE TO INITIALIZE AT END OF EACH TES 
6006 035632 036222 -LPER ::CALL=LPERR § TRAP+14(104414) ROUTINE TO SET UP LOOP ON ERROR ADDRESS 
6007 000032 $TERM=.-$TRPAD 
6009 -SBTTL POWER DOWN AND UP ROUTINES 
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“POWER DOWN ROUTINE 
035634 012737 036012 000024 $PWRDN: MOV ASILLUP,@APWRVEC ;:SET FOR FAST UP 
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11 12-MAR~80 07:22 
035642 012737 000340 
0356 01 

8 5652 010146 

5654 010246 

O38660 910466 

0 re: 010566 

0 2088 017746 143250 
0356 010667 000122 
035674 012737 035706 
035702 
035704 000776 
053706 012737 036012 
035714 016706 000076 
Oa2e 005067 000072 
035724 005267 
035 001375 
035732 012677 143202 
035736 012605 
035740 012604 
035742 012603 
035744 012602 
035746 012601 
035750 012600 
035752 012737 035634 
35760 012737 000340 
032798 104401 
035 036300 
035772 012716 
035774 001370 
035776 2766 000020 
036004 005067 175100 
036010 2 
036012 
036014 000776 
036016 
036020 104401 

036022 001313 
036024 113737 001102 
036032 042737 177400 
036040 013737 001116 
036046 010046 
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000026 
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000024 


000024 
000026 
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AND UP 


MOV #340, QAPURVEC +2 : :PRIO: 7 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) 3 R1 ON STACK 
MOV R2,-(SP) *=PUSH R2 ON STAC 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) = =PUSH R4 ON STACK 
MOV R9.= (SP) > :PUSH R5 ON STACK 
MOV aSWR,-(SP) ;sPUSH @SWR ON STACK 
MOV SP. SSAVR6 E SP 
MOV #SPWRUP ,A#PWRVEC ::SET UP VECTOR 
BR 72 : sHANG UP 
J EERE EREEEEKKEKEKEEREKKREKAEEKEEKREKEEEERERREKEKRERE 
“POWER UP ROUTINE 
$PWRUP: MOV #SILLUP ,AMPWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6, SP ::GET SP 
CLR SSAVR6 + WAIT LOOP FOR THE TTY 
1$: INC $SAVR6 ;3WAIT FOR THE INC 
BNE 1$ WORD 
MOV (SP)+,aSWR ::POP STACK INTO aSWR 
MOV (SP)+,R5 ::POP STACK INTO RS 
MOV (SP)+,R4 ::POP STACK INTO R4 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+,R2 ::POP STACK INTO R2 
MOV (SP)+,R1 -:POP STACK INTO R1 
MOV (SP)+,RO : STACK INTO RO 
MOV #SPWRON,@#PWRVEC ::SET UP THE POWER DOWN VECTOR 
MOV #340, a4PWRVEC+2 ;:PRIO:7 
TYPE ;ZREPORT THE POWER FAILURE 
SPWRMG: .WORD POWERM R FAIL MESSAGE POINTER 
MOV (PC)+, (SP) = =RESTART AT STAR 
SPWRAD: .WORD START ; sRESTART ADDRESS. 
BIC #20,2(SP) ;:CLEAR ‘'T’' BIT 
CLR $TBIT -=CLEAR THE ''T'' BIT FLAG 
$ILLUP: HALT :;THE POWER UP SEQUENCE WAS STARTED 
BR .-2 ;2 BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 ::PUT THE SP HERE 
.SBITL ERROR TYPE OUT ROUTINE 
{EAA EKKEERAEREAEEAEKEKEEEREREKEEEKEEKEAERKEEKREERAEREREKEREEEEEE 
PTTITTLISLLLL LLL ELLE LLL ELE LLL LLL LLL LLL iidkdikthte 
THIS ROUTINE IS CALLED T0 TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
: OR BY FIRST SETTING $ITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
-*OUT AND THEN ECECUTING A: 
is JSR PC ,ERTYPE 
** 
ERTYPE: TYPE -TYPE A CRLF 
.WORD  $CRLF 
MOVB  a#$TSTNM,a#$TMPO 
BIC #177400, a4$TMP 
MOV aFSERRPC, aaSTMP1 :GET PC OF CALL 
MOV RO,-(SP) :SAVE RO 
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CJKDDB.P11 12-MAR~80 07:22 TYPE QUT ROUTINE SEQ 0159 
7 0 113700 001114 MOVB a4$1 TEMB,RO ;GET THE ITEM NUMBER 
0 042700 177400 BIC 77400" RO | 
0 001007 BNE , iF 
60 0 104401 036351 PCTYP: TYPE -EMS 
6031 O 013746 001116 MOV SOSERRPC ,-(SP) ;IF ZERO THEN JUST 
6) 036072 10440 TYPOC sPRINT THE PC 
pee 036074 000137 036130 JMP @VERTS 
6035 036100 005300 MULT: DEC RO sOTHERWISE MULT RO BY 2 T 
6036 ;GET ERROR MESSAGE POINTER 
6037 036102 006300 ASL RO 
6038 othr 062700 001346 ADD re pget RO 
6039 036110 011037 036120 MOV ) aves :PICK UP ADDRESS OF ERROR MESSAGE 
6040 056114 001405 BEQ ERT ." ; 
6041 036116 104401 TYPE 
6042 036120 000000 2$: .WORD 0 
6043 036122 104401 TYPE 
6044 036124 001313 -WORD $CRLF 
6045 036126 000755 BR PCTYP 
6046 0361350 012600 ERTS: MOV (SP)+,RO sRESTORE RO. 
6047 036132 000207 RTS PC :AND RETURN. 
6048 
6049 
6050 
6051 
605 -SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 
605 RARER AREER AERA AREER AERA ERE RARER REE EE 
(2) ITITIITIIITITT LILI tit Lit iii ili Tit LL LLL LLL ke 
6054 «THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
6055 + * THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
rity : STHESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 
6058 036134 011637 001236 FPSPUR: MOV (SP) ,a#STMP2 ;SAVE PC OF TRAP. 
6059 036140 022626 CMP (SP)+, (SP) + RESTORE SP. 
6060 036142 170200 STFPS RO :GET FPS 
6061 036144 010037 001240 MOV RO, a4STMPS 
6062 036150 170300 STST RO 7GET FEC 
6065 036152 010037 001242 MOV RO, a#STMP4 
6064 036156 104001 1$: ERROR 1 
6065 036160 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
(1) : SEE IF THE USER HAS EXPRESSED 
(1) ay | DESIRE TO CHANGE THE SOFTWARE 
(1) VIRTUAL CONSOLE SWITCH yee (HAS 
(1) = THE USER TYPED CONTROL G?) 
os 036162 000137 032702 JMP @a4#$EOP 
6068 
6069 .SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 
6070 TERRE RE ARERR AER EER ERRERRA REAR ARERR ARERR RR 
(2) PITITIIITILILT LLL LLL ELLE ELL LL LLL LL LLL 
rita : HTHIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 
6073 036166 011637 001236 7PSPUR: MOV (SP) ,@A#STMP2 sSAVE PC OF TRAP. 
6074 036172 022626 CMP (SP)+,(SP)+ 
6075 036174 104000 1$: ERROR 0 
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CPU SPURIOUS TRAP TO 4 HANDLER 


RSE TUP ;GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
+ THE DESIRE TO CHANGE THE SOFTWARE 

IRTUAL CONSOLE SWITCH me (HAS 
"THE USER TYPED CONTROL G?) 

JMP @4$EOP 


.SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


SF RARER RARARAEEERARAEEAERAREARKEREAAAEREEAREERREERREERRERRKEEARER 
MARAAARAASAAASAASLALALASAAAARRSRARERARERRRASAAR ERAS ARRSRR ALAS ASA R ASE A 


: #THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 


éP TWO: MOV (SP) ,a@#STMP2 :SAVE PC OF TRAP. 
CMP (SP)+, (SP) + 
1$: ERROR 2 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 


;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH + leat (HAS 
;THE USER TYPED CONTROL G?) 

JMP @4$EOP 


-SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 


MARA AAAAARASAALALAAAAARARAALARAALARSAR EASES ARRAS ARAL SAAR AAAS L SSS! 
5 RRAARRAEKAAAARAARAAEAERAEEAAEAERAAAAERAAAAAEAAERAREREERAAEEAEAERERERRE 


cE 
-LPER: me (SP) ,@#SLPERR 


-SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 


SERRE ERE REAR REE RE RRR ARERR REE RRR RRERRRRERERR ARERR ERE ED 
= RERERRRRERERERERRARE RARE ARERR AREER ARERR ERE EER RR Ee 
:STHIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 

:*RESET THE STACK, CLEAR THE FPS AND SEE ~ THE USER HAS TYPED 

:* CONTROL G ON THE TERMINAL. IF THE USER TYPED CONTROL G AND 
:*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 

:*OF THE SOFTWARE SWITCH REGISTER ae BE TYPED IN OCTAL ON THE 

;: *TELETYPE AND THE USER CAN MODIFY IT 


RSET: CMP @ISWR #177570 sSEE IF THERE IS A PHYSICAL 
we 13 : CONSOLE SWITCH REGISTER. 
CKSWR SOTHERWISE TYPE THE CONTENTS 
[OF THE PROGRAM VIRTUAL SWITCH REGISTER 
: AND he THE USER A CHANCE TO 
:MODIFY IT. 
1$: MOV #FPSPUR ,@#FPVECT 
MOV ACPSPUR , @#ERRVECT 
MOV #CPTWO,a#10 


; SAVE RETURN ADDRESS. 
:RESET THE STACK POINTER. 


MOV (SP) ,R 
MOV A#STACK, SP 





—— 


LL LLL LL 


07:22 


053517 


88 


047514 
047522 
041117 
020117 


F 13 
MACY11 30A(1052) 12-MAR-80 07:25 PAGE _ 


FLAG RESET AND CONSOLE TEST ROUTI 


; THESE ARE SPECIAL MESSAGES: 
POWERM : rtd}, <CRLF >" POWER FAILURE. PROGRAM RESTARTING. * 


ASCIZ 
ci /ELOATING POINT aol} 


sCLEAR THE FPS. 
;RETURN. 


STOPPED AT PC= / 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


1313 
1333 


3213 


32004 


3220 
5855 


1319 1366 1337 13424 
1339 13564 


3228 32304 
3204 


3222 
58594 


SEQ 0162 
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CJKDOB.P11 2-MAR-B0 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0163. 
AMTYP3= 000000 80 | 
AMT’P4= 000000 80 
APASS = 000000 80 | 
1OR= 000000 80 | 
APTCSU= 000040 5993 59994 | 
ENV= 1 5989 5993 5999" | | 

APTSIZ= 90  5999# 

T 100 5993 5999 | 
ASWREG= 80 
ATESTN= 80 
AUNIT = 000000 80 
AUSWR = 000000 80 
AVECT1= 000000 80 
AVECT2= 000000 80 
BBCDON 0174 3251 3264 3270 32884 
BBCTP1 017326 3337, 3247 02S 3256" = 3261 
BBC1 017246 32354 
BBC10 017332 3248 32614 
gBC11 017350 3250 32674 
gBc2 017302 3240 32434 3277 3280 
BBC20 017366 3241 3275¢ 
BITO = 000001 674 
BITOO = 000001 67H 
BITO1 = 000002 674 
BI Tee = 000004 674 , 
BITO3 = 000010 674 
BITO4 = 000020 674 
BITOS = 000040 674 
BITO06 = 000100 67H 
BITO7 = 000200 674 

1T08 = 000400 674 5987 
BITO9 = 001000 674 5987 5989 
BIT1 = 000002 67H 
BIT10 = 002000 674 5989 
B1T11 = 004000 674 5987 
BIT12 = 010000 674 5973 
BIT13 = 020000 674 5989 
BIT14 = 040000 674 5987 
BIT15 = 100000 674 
BITe = 000004 674 
BIT3 = 000010 674 
BIT4 = 000020 674 
BITS = 000040 . 674 
BIT6 = 000100 674 5891 5905 5923 
BIT? = 000200 674 
BIT8 = 000400 674 
BIT9 = 001000 674 
BPTVEC= 000014 674 
CC 007220 1376 «©1383 —Ss«é2:3 89 
€CB1 007124 13644 
CCB10 007166 1373 —s-1379# 
CCB15 007204 1375 =: 113864 
CCB2. 007142 1367 «13684 
CKSWR = 104407 5987 5989  6004# 6112 
CPSPUR 036166 388 488 566 640 1555 1635 1714 1789 £1866 1944 2021 2096 2162 

3224 3282 3325 £3373 £3422 3476 3531 4703 4765 4827 4891 4956 5022 


I 13 
CJKDO8 ~ Aes PART ¢ MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-2 | 


CJKDDB.P 11 2-MAR~80 07:22 CROSS REFERENCE TABLE -~ USER SYMBOLS SEQ 0164 | 
5096 60734 6117 ' 
CPTWO 036204 60844 6118 
CR = 000015 674 
CRLF = Saene 654 674 91 5993 6130 
DOBBFO 007516 1458 1472 14924 
007536 1467 1474 1480 15014 | 
DDBTP1 007476 1442 14834 
DOBTP2 007506 1446 1470 14874 
DDBTPS 007526 1471 14964 
1 007324 143 
eo] 0073 1451 14534 
DDB 007432 1463 14704 
007460 14 14774 
C 017614 3 3315 3319 33294 
DDOCTP1 017514 3295 3302 33094 3312 
DDC1 017424 32934 
DDC10 017526 3303 33124 
DDC11 017544 3305 33164 
DDC 017462 3298 3321 3323 
DDC 017562 3299 33204 
DDISP = 177570 67 0 
DISPLA 001142 90* 5987*  5989* 
DISPRE 000174 90 
DOAGIN 033010 5955 59654 
SWR = 177570 7 80 90 
EEBBFO 007672 154 
EEBBF1 007702 150 1513 1519 1525 15444 1565 1570 
EEBDON 010026 1529 1560 1567 1573 15804 
EEBTP1 007652 1506 15324 1564 
EEBTP2 007662 15364 1563 
E81 007542 15054 
EEB10 007712 1515 15504 
EEB15 007746 1522 15634 
E 007612 1514 15164 1551 1553 
EEB20 007774 1526 15704 
EEB25 010012 1528 15764 
020024 3344 3358 3 33774 
EECTP1 017714 3333 3334% 33494 3351 
EECTP2 017724 3332 3340 33514 3355 
017620 33314 
EEC1IO 017736 3341 33554 
EEC11 017754 3343 a 
EEC2 017 3336 3369 3371 
EEC20 017772 3337 
G 036351 40 61334 
EMTVEC= 30 67 “ 
mM] 036417 82 61344 
E 036446 83 61354 
EMS 036503 84 6 
ERRVEC= 674 * 339* 440* 604* 674* 740* * 1594* 1673* 1752 £41826" 


90 528* 1515 
1904* 1980* 2056* 2124% 3187* 3241* 3299* 33537* 53386 3434* 3489" 3549" 4660* 


4722* 4784% 48646* 4911* 4975" 5047s 5987* 6117* 


ERTS 036130 033 6040 60464 
FFBBFO 010162 16204 
FFBBFI 010172 1586 1592 1599 1605 16244 1645 1650 


CJKDDB KEF11-A DIAG PART 
12-MAR~80 07: 


CJKDDB.P11 


010316 
01014 
01015 
01 
010202 
010236 
010102 
010 
010302 
0 . 6 


© 
oes 


olelelelele) ele) =) 
waded dad Dadabad 


>) 2 
SELES x 
Rg .~ Nm 


eats 


Sees 


& 


AAAI AA Ss 


ae 


NR NSS Bic 
aa AR + 2 3 sk 


1687 
3443 
34 


MACY11 30A(1052) 


NNANN NOANNO Sw 


SEREE FF 


td es et eed eed aed aed od 


gE 


é 


yuu 
hee 
R&S 


12-MAR-80 


J 13 
07:25 PAGE 2-3 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1647 
1644 


1653 


1633 


34264 
3400 
3404 


60584 
16994 
1732 


1712 


3467 
34484 


3465 


6005 
17744 


3522 
3507 


16604 


6116 
1724 
17394 


35354 


1729 


3474 


SEQ 0165 


CJKDDB KEF11-A 


CJKDDB .P11 
HHC11 O 
HHC 020516 
HHC 0 
HHC25 0 4 
leer 0 011 $2 
| [1BBF 1 OF 13e5 
1LIBDON 011406 
1IBTP1 ot ige 
LIBTP2 01124 
1161 01111 
11810 ALC 
11815 O11 
Il aE 3 
Il 0113 
11825 011372 
LICDON 021012 
11¢c1 aso ts 
1Ic2 0207 
$C ¢0 021002 
LIC 020750 
IOTVEC= 000020 
JJBBFO 011546 
JJBBF1 011556 
JJBDON 011702 
JJBTP1 011524 
JJBTP2 011536 
JJB1 011412 
JJB10 011566 
JJB15 011622 
JJB2 011462 
JJB20 011650 
JJB25 011666 
KKBBFO 012050 
KKBBF1 012060 
KKEDON pices 
KKBTP1 012020 
KKBTP2 012040 
KKB1 011706 
KKB10 012070 
KKB15 012124 
KKB2 011756 
KKB20 012152 
KKB25 o16128 
KKCDON 022522 
C1 1154 
KKC10 021572 
KKC11 021630 
KKC1 021666 
KKC1 021724 
mers 3208 
KKC16 0220 
KKC17 oseils 
KKC18 022152 
KKC19 022210 


80 09:22 


0.0 000 
Boas 


00.0 
Eo 
2 


et nh dn nes Ss ss 3 a 
SET EREE 
_ ee ew 


1994 


BARES 
etsy 


00 00 CO 
RAS 


Go CO Go 
e Nessee fn 
n 2222 


WA Wea eee ee 
NwVI ON 


Vw OW 
g 


MACY11 30A(1052) 


3519 


12-MAR-80 


3520 3527 
18514 1876 
1881 

1884 18904 
1864 

3570 

1914 19294 
1962 19674 
1942 

20064 2031 


2036 
2039 20454 


2019 


3529 


1954 


K 13 
07:25 PAGE 2-4 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1959 


CJKDD8 


CJKDD6. 


KE 
PI 


F11-4 DIAG PART 2 

1 12-MAR-80 07:22 
021212 36554 
022246 39074 
8 : 50 36704 
021 36974 
0 ipa 37124 
02144 7264 
021476 37404 
021534 37544 
0 sane 4026 

022 3641 
3825 

022512 3960 
025076 4267 
4479 

025366 4578 
000012 674 
012330 2049 
012340 20834 
012446 2068 
012310 2048 
012320 20754 
012210 20474 
BiSzae 2056 
012404 2064 
012254 2055 
aed 2067 
023530 4162 
022526 40254 
023254 41514 
022574 40384 
022642 40524 
022710 40664 
022756 40804 
023024 40944 
023072 41084 
023140 41224 
023206 41374 
002056 934 
104414 106 
873 

1584 

2481 

298 

4151 

4461 

5185 

5383 

012602 2117 
012612 2126* 
012720 2136 
012552 2116 
012572 21434 
012452 21154 


L 13 
MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-5 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2090 


2092 


gee ny wy a 
ee. 
y— 


VI & 
On —e 
RoW 


om 
WwW 
™Nm 


4381 


4138 
3755 


4397 


4152 
3769 


4413 


41954 


3783 


4429 


3797 


4445 


SEQ 0167 


3811 


4462 


M 13 
CJKDDB Ala DIAG PART 2 MACY11 30A(1052) 12-MAR-80 07:25 "PAGE 2-6 


CJKDDB.P11  12=MAR~80 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0168 
MMBI10 012622 2124 21574 
MMBIS 0126 g13¢ 31708 
MMB2 012516 21 21264 2158 2160 
MBS (OT 2135 2176" 
MACDON 025376 4526 46404 
MAC] 023534 42 
MACIO 0243 4412# 
MMC11 0244 442 
tmicie 0245 444GH 
mac13 «(0 44614 
mci, 0 44784 
MMCIS 02474 4495# 
MMC16 025016 4512 
mice 023612 42824 
macs «= 00236 
mac, = 023746 4314# 
m™—CS = 024024 43314 
MACS 024102 43478 
MMC7 026160 4 
MCB 024236 4 
WICD 024514 43964 
MULT 036100 6029 60354 
NATBF1 017050 3052. 3058 «= 3079S «3084S 3106S 31668 
NATERT 017000 3103 © 31424 
NATERe 017016 3129 
NATERS 017032 3138 31584 
NATINS 016526 3062 30664 
NATRET 017012 3143 3145 3147H = 3151s 3153S 3155. 3159 3161S 3163 
NATSUB 016446 2796 2820 2844 2868 2892 2916 2940 2964 2988  3049# 
NNBBFO 013042 2201 2203 22224 2228 2230 
013122 2211 2233. 2238) 2245 
NBTP! 013082 2192 22144 2230 
NNBTP2 013032 204 22184 2229 
012724 2189" 
NNB10 013052 2207 = 2228 
NNB11 013102 2231 
NNB15 013106 2210 2241 
NNB2 = 012750 2194 2196M 
NNCDON 025620 4671 4681 4687 4694 47094 
NNCTBO 025502 4654 46744 
NNCTB1 025506 4662 4665 4667 4669 4675# 4679 4685 4692 
NNC1 025402 46534 
NNC1O 025516 4 46784 
NNC15 025534 4 
NNC2 025450 4659 4701 
NNC2O 025554 4670 46914 
NNC25 025574 4660 4700# 
OOBDON 013332 2272 © 2289S «2295 23024 
O08TP1 013240 2249 2254 2262 2268  2275# 2286 2292 
OOBTP2 013250 2250 2263 22804 2287 
0081 013126 22484 
00810 013260 2266 
00815 013 2269 =. 2292 
0082 = 013174 2256 © 226 0# 
00820 013316 2271 = 2298# 


oe ren 
: 


N 13 
CJKDDB KEF11-A DIAG PART 2 MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-7 


CJKDDB.P11 12-MAR~80 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0169 
4733 4743 4749 4756 47714 
4716 47364 
4726 4727 4729 4731 4737# 4761 4747 4754 
47154 | 
4728 47404 
47 47464 
4721 47264 4763 . 
4 34 





124 147 150 1544 
in 1274 
1174 128 
129 1334 
144 1494 
60304 5 
674 
674 
POWE RM 61304 
13542 2330 2346 2352 23594 
PPBTP1 013450 2306 2311 2320 2326 23334 2343 2349 
PPBTP2 013460 2307 2321 23374 2344 
PPB1 013336 23044 
PPB10 013470 2324 23434 
PPB15 013510 2327 2 
OT eee 2313 23174 
013526 2329 23554 
PPCDON 026264 4795 4805 4811 4818 48334 
PPCTBO 026146 4778 47984 
PPCTB1 026152 4786 4789 4791 4793 47994 4803 4809 4816 
PPC1 0 47774 
PPC1 026162 4790 48024 
PPC1 02 4792 4 
oerSn 026114 4783 47 4825 
PPC 8 6220 4794 48154 
PPC25 40 4784 48244 
PPPBFO 002356 169 2064 
PPPBF 1 2372 179 187 194 20 215 221 
PPPDON 454 192 204 217 2244 
PPPTP1 002406 176 195 2104 214 220 
PPP} 002220 1664 
PPP | si 416 197 1 2144 
PPP} 2436 201 203 2204 
aaa posgae 1714 172 
ppp 2 182 1854 
PPP4 002320 188 1944 
PROGNU= 3 54 
PRO = 674 
PR1 = 000040 674 
PR = 000100 674 
PR = 000140 674 
PR4 = 000200 674 
PRS = ene 674 
PR6 = 000 674 
PR7 = 340 674 
PS = 177776 674 5886* 


sd 


CJKDDB KEF11-A DIAG PART 
12-MAR~-80 07:22 


CJXD06.P11 





770 


RK 


es 
US 


49534 


MACY11 30A(1052) 


12-MAR-80 


24184 
2383 
2402 


4882 


48624 
48634 


283 
273 


23904 


4897# 


4873 
4867 


24514 


49624 


4938 
4932 


2401 — 


4880 
4879 


284 
310 


2459 


4945 
4944 


B 14 
07:25 PAGE 2-8 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2407 


300 303 306 309 
317 


2462 


318 


SEQ 0170 


C 14 
CJKDD6 KEF11-A DIAG PART MACY11 304(1052) 12-MAR-80 07:25 PAGE 2-9 


CJKDOB.P11 12-MAR~80 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0171 
RRRDON 364 394 398 404 4214 
RRRE 10 354 3764 402 
RRRTPI 170 331 3664 
RRRTP2 337 3714 
RRR | 00 5294 
RRR1O0 00 339 3834 
RRR11 % 4 385 3 
RRR1 387 3954 
RRR1 003314 361 363 4094 
093160 340 34 
RRR2S ei 4 358 4014 
RRR 003122 3504 355 386 391 401 409 412 414 
RRRS 003146 3574 359 
RSETUP= 104413 54 22 320 421 508 P) 657 723 794 1029 1258 1291 1356 
1 1428 1501 1580 0 1739 1813 890 1967 2 2112 2180 2245 
2302 2559 2418 2478 2537 2593 2651 2718 2787 3168 3230 32 3329 
3377 3426 80 3535 3580 2 4015 4252 4709 4771 4833 4897 
4 5035 5106 5138 5171 5552 5580 5763 5831 5863 5926 6065 
6076 6087 
SA = 104411 
SPACE 036344 61314 
S ete 2507 2524 2530 25374 
SSBTP1 014332 2482 2488 2489* 2497 25104 2518 2521 
SSBTP2 014342 2483 2498 25144 2522 
SSBTPS 014352 2487 2503 25184 2527 
SSB1 014210 24814 
SSB1 014354 501 25214 
SSB1 014374 2504 25274 
SSB2 014266 2490 24944 
SSB20 014412 2506 25334 
SSCDON 027212 4989 4999 5006 5013 5027 50354 
CTBO 027070 4969 49924 
SSCTB1 02707 4978 4983 4985 4987 49934 4997 5004 5011 
C1 026756 49684 
SSC10 027104 4984 49964 
SSC15 027122 4986 50034 
SSC 027026 4974 49804 5020 
SSC 027142 4988 50104 
SSC25. 027162 4975 50194 
SSC 027210 4982 50304 
SSSA1_ 003532 442 455 4674 505 
SSSBFO 003522 432 446 448 4634 496 501 
SSSDON 003670 460 492 498 504 5084 
SSSTP1 003542 438 449 4734 502 
SSSTP2 003552 477# 506 
3364 4304 
SSS10 003562 440 4834 
SSS11 003604 485 487 4904 
SSS15 003614 447 4954 
3442 44] 4444 484 486 
SSS20 003632 452 5014 
SS 003652 458 5054 
STACK = 001100 674 5830 5862 6120 
START 001370 79 904 6009 
STCDFS 006314 1040 1063 1086 1109 1132 11854 
STCDT 006576 1197 1198 1207 1213 1231 12574 


> 16 

CJKDDB KEF11-A DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-10 | 

CJKDDB.P11 12-MAR-80 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0172 

STCFDS 805 828 851 874 897 9544 

STCFT 7 968 977 983 0 

STCIBF 03132 5484 5691 5500 5505 5523 5550# 

STCSUB 93104 518 5203 5218 5233 5249 5264 5279 «©5295 5310 5325 5340 5355 5370 
5384 5400 5417 5433 5479" 5567 

STKLMT= 177776 674 

STXBF 032102 5718* 5719* 5726 5731 5732. 5734 5755 S764 

STXSUB 031674 5593 5607 5623 5638 5653 5668 5712s 

SwR 001140 B04 §=—« 90 91 5973 5987 5989  6002* 6009* 6109 

SWREG 000176 794 =o) 91 6002 

Sw = 000001 674 

SwOO = 000001 678 

SuO> = 900004 roe 

= 

SOs = B00OTG 674 

Sw04 = 000020 674 

SwOS = 000040 674 

SW06 = 000100 674 

SwO7 = 000200 674 

SWOB = 000400 674 

swO9 = 001000 674 

Swi = 000002 674 

Sw10 = 002000 674 

Swi? = 004000 674 

Swiz = 010000 674 

SW13 = 020000 674 

Sw14 = 040000 674 

Sw15 = 100000 674 

su = 000004 674 

Sw3 = 000010 674 

Sila =: 000020 674 

Sw5 = 000040 674 

SW6 = 000100 674 

Sw? = 000200 674 

SWB = 000400 674 

Sw9 = 001000 674 

TAB = =: 000011 644 6132 

TBITVE= 000014 674 “ 

TCCBFO 021130 3595 3603 3607 36224 

TCCBF1 021140 3599 36234 

TCCDON 021150 36123618 = 36254 

TCC1 021016 35914 

TCC 021040 359235 

TCC 021104 36114 

TKVEC = 674 

TPVEC = 674 5882 5883 5884* 5885* 5898* 5924* 5925« 

T = 000034 674 «90 

TRIVEC= 000014 67# 

ST 002056 1044 

TST10 004412 6644 

TST11 004646 730# 

TST12 005120 8014 

TST13 005754 10364 

TST14 006610 1264# 

TST15 006710 12984 


CJKDDB KEF11-A 
CJKDDB.P11 
TST17 86007222 
TST 16 
TST 007322 
13158 Bi0938 
13133 010320 
TST24 010610 
TST25 011110 
TST $ 011410 
TST 011704 
TST 002456 
TST30 012206 
TST31 012450 
TST 012722 
TST3 013124 
EAE » 0133 
TST35§ «=: 01 3544 
TST360«=—-« 01 3766 
TST37 §©©014206 
TST4 003040 
ST 014430 
TST41 14640 
TST4 15066 
TST4 015330 
TST44 015602 
TST45 17064 
TST466 03 =: 0017244 
TST47 3=—: 0017422 
TSTS 003362 
TSTSO §©017616 
TST51 020026 
TSTS 020230 
TST5 020446 
ST54 020700 
TST55 } =—6.021014 
TST56 4 =—.021152 
TST5S7 022524 
TST6 003672 
TST60 023532 
TST61 025400 
Stee 025622 
TST6 026044 
TST64 026266 
TST65 026520 
TST 026754 
TST67? 86027214 
TST7 004142 
TST 27466 
TST71 027570 
TST 027672 
TST 031334 
TST74 031404 
TST75 032116 
TST76 4 §=—6.: 032326 
TST77 §=—.: 032416 
TTBDON 014636 


09:22 


58734 
2564 


2580 


2586 


E 14 
MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-11 
CROSS REFERENCE TABLE -- USER SYMBOLS 


259354 


CJKDDB KEF11-A DIAG PART 
12-MAR-80 07:22 


CJKDDB.P11 
TIBTP? 014544 
TIBTP2 014554 
TTB1_ 014432 
TTBIO 014564 
TTB15 014604 
TTB2 014500 
TTB2O 014622 
TTCDON 027 
TTCTBO Sear 
ITCTB! 027342 
TTCTB2 02735 
TIC] 027216 
TICIQ 087356 
TTC15 027374 
TTC2 = 027274 
TTC20 027414 
7TC25 027434 
TTC30 027462 
TTTAl 004026 
TTA 004030 
TITAS 004032 
TTTBFO 004014 
TTTDON 004140 
TTTTP1 004040 
TTT] 003674 
TTT10 004050 
TTT11 004072 
TTT1S 0041 
TTT2 003760 
TTT20 004122 
TITS — 004 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
5064 
UUBTP1 014716 
UUBTP2 014770 
UUB1 014642 
UUB10 015000 
UUB15 015036 
UUB2, 014714 
UUB20_ 015020 
UUCBFO 027 
UUC 27 
UUCTP1 027546 
WUC1 027470 
UuC2 027520 
WuC3. 027530 
UUUA1 00427 
UUUA2 004 
UUUA3 004302 
UUUBFO 004264 
UUUDON 004410 


F 14 
MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-12 
CROSS REFERENCE TABLE -~ USER SYMBOLS 


599 
645 


2554 
25714 


5080 


5060 
50674 


5094 


6254 


610 
651 


2560 
2578 


5087 
50664 
5071 


5514 
5454 
5844 
582 
564 
5989 


26514 
26094 
2632 


51364 


649 


6194 
6574 


25674 


5100 
5078 


576 
551 


5993 


2612 


624 


2577 2583 


51064 
5085 


581 


5995 5997 6002 60044 6009 6020 


2631 2645 


654 


SEQ 0174 


6030 6041 


CJKDDB KEF11-A 
CJKDDB8.P11 
UUUTPT 004310 
UUU1 004144 
WUU10 004320 
UUU11 = 006342 
UUU15 006354 
004230 
004572 
UUU oe 54 
vvB1 007224 
ve10 00 
vvVB15 00 
VVB2 = «007242 
VVCBF O 7 
VVCDON 0276 
VVCTP1 027650 
wel 027572 
we 027622 
vc 027632 
VVVBFO 004534 
VVVDON 004644 
VVWVTP1 004544 
vvv1 004414 
VVWV10 = 004554 
VWV11 004576 
VW15 004610 
VWV2 004476 
VWV20 004626 
WWBDON 017062 
wh | 015604 
WhB2 15662 
wd 3 015740 
iwhadlv/4 016016 
WW S 016074 
WAG 016152 
Wh 7 16230 
Wha 3& 016306 
WBS 16364 
WWCDON 031332 
WC 1 027674 
WWC10 030534 
wWC11 030400 
WC12 050444 
wWC13 630510 
WWC14 030554 
wWC15 0 
WWC16 030664 
wWwC17 030730 
ae Br 
WiC 4 850004 
wWC5S 030050 
wWC6 030114 
WC 7 0301 
wWiC8 030224 
wwC9 = 030270 


D 
1 


IAG PART 


2-MAR~80 07:22 


0S 
wn 


Sur 


_O— 
we 
wz 


Vw 


SVR RRRRS 
oo R 
WE oF 


MMVII — = = = 


MACY11 30A(1052) 


55524 


6294 


6424 
636 


14284 


G 14 
12-MAR-80 07:25 PAGE 2-13 
CROSS REFERENCE TABLE -- USER SYMBOLS 


655 


638 


51694 


704 


6914 


715 


720 


SEQ 0175 


CJKDDB eA, DIAG PART 
12-MAR~80 07: 


CJKDDB.P11 
WAIBFO 006776 
WAWBF1 005016 
WwWDON 005116 
WwwWTP1 005006 
ren 005036 
wd 1 
WIS 005062 
004740 
005100 
x 015326 
XXBTP1 SEES, 
XXBTP2 015224 
XxB1 015070 
XXB10 015254 
XxXB15 015274 
XXB2 015142 
x 015312 
XXB2 015234 
XXCDON 031402 
xXC1 13 
XXXDON 005752 
MAXX 005122 
XXX2 005176 
Xxx3 005252 
XG 005326 
XxX5 005402 
Y 032652 
YYBDON 015600 
YYBTP1 015464 
YYBTP2 015474 
YYBTPS 015504 
YYB1 015332 
YYB10 015526 
YYB15 015546 
YYB2 015412 
YYB20 015564 
YYB25 015506 
YYCDON 032114 
YYC1 031406 
YYC2 031444 
yYc3 031502 
YYC4 031540 
YYCS 031576 
YYC6 031634 
YYYDON 
yYY1 005756 
YYY2 0060 
vYyy3 006106 
vYY4 006162 
yvy5 006236 
77CBF 835806 
ZZCDON O35 390 
272C1 032720 
ZZC10 032260 


MACY11 30A(1052) 


12584 


5915* 
5790 
5809 
58124 


751 
749 
788 
7624 
7794 
773 


H 14 
12-MAR-80 07:25 "PAGE 2-14 
CROSS REFERENCE TABLE -- USER SYMBOLS 


7584 
7664 
7944 
792 


2780 


59204 
5818 


786 


27184 
2677 


27874 
27544 


5825 


791 


26844 


2762 


58304 


2701 


2771 


2707 


SEQ SE 


ee 


aed ene Sa eT oe 





1 14 

CJKDDB KEF11-A DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-15 
CJKDDB.P11 —-:12=MAR-B0 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0177 
azC12 932874 5813 58164 
27015 0 5803 58214 
22C2 © 032130 57814 5794 5800 
22C3 = 032156 5786 ©: 57874 | 
2205 =: 032254 5799 58074 
22 032656 5913 5922 
2201 032420 58754 
22020324 5876 40 s«58 : 
22ZDON 006706 1279 1285 = s«12914 
2221 006612 12664 
22210 006654 1275 1282 
22215 006672 1278 = 12 
2222 006630 1269 12708 
SAPTHD 001354 874 
SASTAT= texeae 5999 
SATYC 034666 59994 
SATY] 034642 59994 
SATY3 034650 5993 5999# 
SATY4 034660 5989 5999# 
$SAUTOB 001134 804 (91x 6002 
$BDADR 001122 804 
$BDDAT 001126 804 
$BELL 1 804 5989 
SCHARC 0341 59934 
SCKSWR 035110 60024 6004 
SCLR.T 032776 5957 5960# 
SCMTAG 001100 gor «0 
$CM1 = 000024 804 
$CM2 = 000050 80# 
SCM3 = 000024 804 
SCM = 000024 80# 
SCNTLG 035517 6002 
SCNTLU 035512 60024 
$C 1344 804 
SCRLF 001313 804 5989 5993 6002 6027 6044 
$OBLK 034632 59978 
SDEVCT 001326 80# 

033046 5946 59714 
$DTBL 034622 59978 
NDAD 033000 86 91 5961# 5989 
SENDCT 032736 90 59484 
SENDMG 033115 5950 59854 
SENULL 033112 5953 «59844 
NV 001336 91 5875 5989 5993 5999 | 
SENVM = 001337 90 5993 5999 
SEOP 032702 5878 5939% 6066 6077 6088 
OPCT 032730 90* 5945# 5949 
SERFLG 001103 80" 5987*  5989« 
RMAX 001115 80# 90x «5987 
SERROR 033412 90 5989# 
RRPC 001116 80# 5989* 6024 6031 
SERRTB 001346 804 6038 
SERTTL 001112 80# 5989s 
SESCAP 001304 804 90" 5987» 5989 
SETABL 001336 80# 
SETEND 001346 80# = B7 


z 


=) oo oO 
eo feetototototatttotote 
WARRAOR RAP RUD 


eee” 


J 14 
DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-16 


12-MAR-80 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0178 
804 5999 
59994 
804 5993 
804 5993 
804 
804 
59544 
60024 6004 
58 
874 
804 5987* 
60094 
804 6002 
804 5989* 6027 
804 5989 5993 
59994* 
5978 59814 
804 90*  5987* 
804 90* 5987* 5989 6097* 
aoe 87 90 91 5987 5989 5993 
59994* 
60024 
804 5999 
804 5999*« 
804 5999« 
60024 
59874 
804 5993 
1044 1644 2344 3274 4284 5154 S914 6644 7304 8014 10368 £12644 
13634 13994 14374 15034 15824 16614 17404 %$18144 #«=°18924 ~«& 1 64 21138 21874 
224664 23034 23604 24204 24808 25384 25944 26524 27204 27934 31784 32334 14 
33304 33784 34274 34814 35454 35894 36354 40234 42634 46504 47124 #47758 #£=48374 
49014 49654 50384 51144 #51464 #=‘S$1824 55624 =S55894 57754 58434 #58734 


90* 5877 5942* 59435* 5951 5987 


804 5989 5993 6002 
004 


cce 


on 
—_—= 
38 
Ux 


NOUS 


BARS 
8333s 


RELESELSES 
SARERLK 


-_—rn 
S =F 


ed eed ed eed ed 


= = NNN 
RNSSRRVAR 


Nm 


vas 


gggeae 


001176 


11-4 


—_ —2 2 
er 
— 


SRSeeeeeececs © 
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MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-17 
CROSS REFERENCE TABLE -- USER SYMBOLS 


59794 


033612 
16 
033132 
iP 91 5987 5989 6002 6009 
33340 
001354 
177400 1 1 234 327 428 
801 1036 8 1363 1399 1437 1503 15 166 1740 1814 1892 
1 2113 2187 2246 2303 2420 24 2538 25 2652 
2793 3178 3233 3291 33 3378 3427 3481 3545 3589 3635 4023 4265 
4650 4712 4775 4837 4901 4965 5038 5114 5146 5182 5562 5589 5775 
5843 5873 5987 5989 6009 
001340 804 
5987 
200 634 
7 61324 
033110 90* 5975* 59834  6009* 
32 60074 
001322 804 
1302 804 5941*  5987% 
001146 804 
001144 804 
001232 804 5924 5965* 5976 6022*  6023* 
001234 804 5925 6024* 
001252 804 1209* 3081*  3972* 4216* 4581* 5502* 5750* 
001254 804 1254* 134* 4582* 5545* 
001256 804 1253* 3133* 4585 5544* 
001260 804 
001262 804 
001264 804 
001266 804 
001270 804 
1236 804 111* 182* 253* 301* 340* 390* 395* 441* 490* 529% 569* 5* 
642* 77* 708* 743% 779% 967* 1197* 1269* 1308* 1367* 1404" 1451* 1514* 
1558* 1593* 1638* 1672* 1717* 1751* 1792% 1825* 1869% 1903* 1947" 19798 2024* 
2055* 2097" 2123 2165% 2194% 2256% 2315* 2369* 2437% 2490* 2547 2603"  2661* 
2731* 3064* 3186* 3226" 3240* 3284% 3298%  3327*  3356* 3375" 3385* 3424" 3452s 





L 14 
CJKDD8 KEF11-A DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 PAGE 2-18 
CJKODB.P11 12-MAR~80 07:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0180 


3478 3487* 3533* 3548 3576* 3592* 3954* 4198  4566* 4659* 4705" 4721"  4767* 
4783* 4829% 4865* 4893" 4910* 4958% 4974% 5024* 5046* 5097* 5120" 5153"  5490« 
5717* 5786* 6058* 6073* 6084* 
STMP20 001272 804 
STMP21 001274 804 
STMP22 001276 
STMP 001 804 
STMP 001240 119* 135* 183* 215* 221* 261* 283* 
496* 501* 506* 576* 581* 649* 655* 715* 
1283* 1289* 1324* 1331* 1337* £=1381* #=‘1387* 1418 
1576* 3* 1650* -1656* 1722* %1729% 1735 1797 
1952* 1959% 1964* 2029%  2036* 2041* 2102 2108* 
2292 2298* 2343* 349% 2355* 2401* 2407 2414 
2533* 2577* 2583* 2589%*  2631* 637* 2646*  2696* 
o777* 2783* 3076* 3185* 3204* 210* 3239%  3261* 
3355* 3361* 3383* 3404* 3410* 3431* 3452% 3458 
3570* 7x 3616 3967% 4211% 4585* 4679% 4684 
4808* 4815* 4867* 4872* 4879% 4932 4937* 4944 
5084* 5130* 5163* 5497*  5714* 5791% 6061* 
STMP4 3 =001242 804 121* 136* 190* 214% 220* 260* 284* 
495* 502* 505* 575* 582* 648* 654* 714% 
1282* 1288* 1325* 1330* 1336* #%$§411379% 1386* 1419 
1644*  1651* 1723* 1730* 1798* 1805* 1875* 1882 
2171* 2229 2241* 2287 2293* 22 x  2350* 
2469%* 2475% 2522% 2528 2534% 2578%*  2584*% 
* 2715* 2765%* 2772% $2778 $%°:2784% 3079 3205 
3356* 362* * 3411* 3453*  3459%  3465* 3508 
* 6210% 4587* 4678* 4685* 4692% 4740* 4747* 
4873* 4880* 4931% 4938* 4945* 4996 *  5011* 
5500* 5731* 5792 * 
STMPS) 001244 139* 76* 1206* 1472* #$%‘+11$65* 1577* 1645* 
1876* 1887* 1954* 1965* * *  2104* 2109 
4589* 5499*  5716* 5793* 
$T 001246 140* 4590* 579%4* 
STMP7 001250 978* 208* x 3971% 4215* 4580* 5501* 
$™N = 000 584 1 1644 2344 3274 42 5154 5914 
13634 13994 14374 15034 15824 16614 17404 
21874 22664 23034 23608 24204 25 25944 
14 33308 33784 34274 34814 35454 5 
48374 49014 49654 50384 51144 51464 ‘S1824 55624 
PB 001152 5887* 5890«* 5901* *  §993* 
STPFLG 001157 5993 
STPS 001150 804 5888 5891* 5900* 5902 5905* 5923* 5993 
$T 035546 90 60044 
STRAP2 035570 60044 
$ 15 60054 60064 
STRPAD 035602 60044 7 
STSTM 001360 874 
STSTNM 001102 804 5940* 5987* 5989 6022 
STYPBN= *eeeee 6004 
STYPDS 034416 59974 6004 
STYPE 033706 59934 5999 6004 
STYPEC 034120 59934 6002 
STYPEX 034166 599 34 
$TYPOC 034214 59954 
STYPON 0342 59954 6004 





CJKDDB KEF11-A DIAG PART 
CJKDDB.P11 12-MAR-80 0 
STYPOS 034170 59954 
001330 
SUNITM 001 874 
SUSWR 1342 804 
SXTSTR 0353144 59874 
SOFILL 034415 5995 4* 
OCAT= seeee0 5987 
. = 036553 794 
6009 
-LPER 0365 2 6006 
-RSET O 6005 
-SASTA= seee08 5999 


-$X = 001554 874 


M14 
MACY11 30A(1052) i2-MAR-80 07:25 PAGE 2-19 


CROSS REFERENCE TABLE -- USER SYMBOLS 


89 
804 864 874 90 914 5987 


5989 


5993 


59974 


59994 


6002 


SEQ 0181 


6007 


CJKDDB KEF11-A DIAG PART 


CJKDDB .P11 


COMME N 
ENDCOM 
ENDPA 
ERROR 


12-MAR~80 07:22 
12 146 
49 503 

1555 BS» 
13381989 
1718 1725 
1966 2025 
2 2300 
2585 2591 
2838 2840 
3009 3142 
3285 3314 
3515 3521 
3705 3707 
3806 3818 
3915 3917 
4104 4116 
4308 4310 
4424 4438 
4634 4680 
4881 4895 
5104 §131 
5288 5290 
5395 5408 
5616 5630 
5822 5854 
914 
106 166 
1039 1062 
1894 1970 
2819 2843 
3547 3591 
3824 3838 
4137 4151 
4478 4495 
5232 5248 
5592 5606 
104 1584 
7254 730 
793 35384 
51734 5182 
1437 1503 
420 2480 
4650 4712 
91 
104 164 
1437 1503 
2480 2538 
3635 4023 
5775 5843 


N 14 
MACY11 30A(1052) 12-M4R-80 07:25 PAGE 3 
CROSS REFERENCE TABLE -- MACRO NAMES 


=ON SF On 
— wt = LU 
ao-o-— 


WNNNN--— 
w= 
cone 


3860 


SW 
EE3E5 


sor ot 
INOS 


B 15 
CJKDDB KEF11-A DIAG PART MACY11 30A(1052) 12-MAR-80 07:25 PAGE 3-1 
CJKDDB.P11 12-MAR~80 07:22 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0183 


i 


POP 674 8 5991 5997 5999 6009 
PUSH 674 5991 5997 5999 6009 
REPORT 674 
RSET 34 1 eee 320 421 08 584 657 723 29 1258 1291 1356 1389 
14 150 1580 1660 1739 1813 1890 1967 204 2112 $150 ise 2 $232 2418 
¢ 2537 2593 2651 2718 2787 3168 3230 3288 3329 377 ¢ 535 3580 
4015 425 4640 4709 4 4833 4897 5035 106 51 5171 5552 5580 
5763 5831 586 4 6065 6076 6087 
SCOPE Big 1S 1 2 327 428 515 9 664 730 80 1036 264 1o58 1363 
1 1437 1503 1582 1661 1740 1814 1892 8 2046 2113 2187 246 2303 2360 
$2 480 25 2594 2652 2720 2793 3178 3233 3291 3330 3378 27 3481 3545 
5 4023 4263 4650 4712 4775 4837 4901 4 5038 5114 5146 5182 5562 
55 5775 5 5873 5939 
SETPRI 674 
SETTRA 6005 6006 
SETUP 674 90 
SKIP 674 
674 
SPACE oe 
STARS 674 1 234 327 28 515 59 7 036 
1264 1298 1363 1399 1437 1503 1582 1661 1740 1814 1892 1968 2046 2113 2187 
$635 2303 2360 2420 2480 2538 2594 2652 2720 2793 3178 3233 3291 3330 3378 
27 3481 3545 3589 3635 4023 4263 4650 4712 4775 4837 4901 4965 5038 5114 
5146 5182 5562 5589 5775 5843 5873 5931 5938 5987 5989 5991 5993 5995 5997 
™ a 6002 6004 6009 6013 6053 6070 6081 6095 6101 
C 334 
TRMTRP 60044 6007 
TYPBIN 674 


TYPDEC 674 

TYPNAM 67# 91 

TYPNUM 674 

TYPOCS 674 

TYPOCT 674 6002 

TYPTXT 674 

SSCMRE 804 

SSCMTM 804 

SSESCA 674 

SSNEWT 674 1 164 2 32 428 515 664 730 801 1036 
1399 1437 1503 1582 1661 1740 1814 1892 1968 2046 2113 2187 
420 2480 2538 25 2652 2720 2793 3178 3233 3291 3330 3378 
589 3635 4023 4263 4650 47i2 4775 4837 4901 4965 5038 5114 
5589 5775 3 58 

$SSET 6005 6 

SSSETM 904 

SSSETU 

SSSKIP 674 

-EQUAT 524 67 

- HEADE 52a 98 

. SETUP Sn 77 

SWRH I 52a 

-SACT1 52a 86 

- SAPTB 54a 804 

SAPTH 544 87 

SAPTY 554 5999 





CJKDD8 oo, DIAG PART 2 


CJKDDB.P11 12-MAR~80 07:22 
-SCATC 524 79 
-SCMTA SoA 80 
. SEOP 5 

- SERRO 5 5989 
‘ 544 6009 
- SREAD 554 6002 
- SSAVE S34 86-5991 
. SSCOP 534 5987 
. STRAP 544 6004 
-STYPD 544 5997 
STYPE 534 85993 
STYPO 534 5995 
- ABS. 036553 000 


ERRORS DETECTED: 


0 


C 15 
MACY11 30A(1052) 12-MAR-80 07:25 PAGE 3-2 
CROSS REFERENCE TABLE -- MACRO NAMES 


CJKDDB.BIN, CJKDDB.LST/CRF=CJKDDB.P11 
RUN-TIME: 91 66 7 SECONDS 
RUN-TIME RATIO: 248/166=1. 


CORE 


USED: 


27K 


4 
(53 PAGES) 


SEQ 0184 


